UNCLASSIFIED 


AD NUMBER 


AD842573 


NEW LIMITATION CHANGE 
TO 

Approved for public release, distribution 
unlimited 


FROM 

Distribution authorized to U.S. Gov't, 
agencies and their contractors; 
Administrative/Operational Use; Jul 1968. 
Other requests shall be referred to the 
Office of the Secretary of the Army, 
Washington, DC 20310. 


AUTHORITY 


DCPA ltr, 7 Oct 1976 


THIS PAGE IS UNCLASSIFIED 




BLANK PAGES 
IN THIS 
DOCUMENT 
WERE NOT 
FILMED 




flDfM *73 


IIT RESEARCH INSTITUTE 
Technology Center 
Chicago, Illinois 60616 

IITRI Project No. J6067 
Final Report 


PERSONNEL. CASUALTY. STUDY. 


by 

n. Dv I^«Fetin_stein 
W. F. Heugel 
M. L. Kardatzke 
A. Weinstock 

This document is subject to special export controls and 
each transmittal to foreign governments or foreign 
national may be made only with prior approval of THE 
OFFICE OF THE SECRETARY OF THE ARMY, OFFICE OF CIVIL 
DEFENSE RESEARCH, the Pentagon, Washington, D. C. 20310. 

Contract No. OCD-PS-64-201 
Work Unit No. 1125-A 
Subcontract No. S-10923(4949A-24)-US 

OCD Review Notice 

This report has been reviewed in the Office of Civil 
Defense and approved for publication. Approval does 
not signify that the contents necessarily reflect the 
views and policies of The Office of Civil Defense. 

for 

Office of Civil Defense 
Office of the Secretary of the Army 
Washington, D. C. 


July 1968 




summary 

PERSONNEL CASUA LTY STUDY 

A computer simulation model lor evaluating the effective¬ 
ness of p.hoir.er systems was developed under Office of Civil 
Defense (OLD) Contract OCD-PS-64-50 Subtusks 1614-A and 1125-A. 
The Shelter Evaluation Program (SEP) permits shelter evaluation 
in terms of the casualties produced from initial effects of 
nuclear weapons. The model was divided into the following 
components: 

m The propagation of nuclear weapon effects through 
the free-field. 

e The attenuation of the free-field effects as they 
interact with local obstructions. 

• The effects of the shelter on the transmission 
of the weapon effects to the personnel within 
the shelter. 

m The response of the personnel to each of the effects. 

• Test of personnel response against casualty 
of injury or death. 

This is the final report on Subtask 1125-A and deals 
primarily with establishing quantitative data for use as 
casualty criteria. The following casualty mechanisms were 
considered: 

• Primary Blast - Experimental data collected 
from animal experiments were extrapolated 
based upon weight of the species and resulted 
in an estimate for LD50 of an overpressure 
equal to 62-64 psi. Detailed overpressure wave 
forms were found to be relatively unimportant. 
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# Debris Effects - Three debris mechanisms which 

cause casualties were identified: impulse loading 
related to debris momentum (MV); crushing or tear¬ 
ing related to debris energy (MV 2 ); and cutting or . 
penetration related to energy times the square of 
velocity (MV^). Wound data for human cadavers 
and animals were reviewed, and casualty criteria 
were developed as a function of mass and velocity 
of the debris fragment. 

© BLast Displacement - The mean velocity, of impact 
for 50 percent lethality of small rodents was 
36.4 feet/sec. This did not show a significant 
variation with weight, as a result; thi^ criteria 
was applied to humans. 

© Thermal Radiation - Second and third degree bums 
resulting from direct exposure of the skin, re¬ 
radiation from clothing heated by the thermal 
energy, and ignition of the clothing and subse¬ 
quent burning of the skin were considered. 

Percentage of mortality was then related to 
percentage of the body area burned. (See Fig. S-i.) 

© Initial Radiation - Radiation casualty criteria 
were determined by extrapolating animal data 
based upon Hiroshima-Nagasaki results. The LD50 
for illness and death were set at 150 and 500 REM 
respectively with a standard deviation of 20 per¬ 
cent. 

The SEP code is described and sample application of the 
code presented. The following conclusions can be made based 
on the results of the computer code and the information 
gained in conducting this study: 
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Fig. S-l BURN MORTALITY 






The computer code provides a means of evaluating 
the protective capability of various shelters, 
provided adequate information describing the 
shelter is available. 

Many of the casualty criteria are studied estimates 
and require further refinement. 

The interaction of free-field blast effects 
and structures is an important link in the 
prediction of casualties. The present in¬ 
formation on this subject is insufficient. 

The posture of personnel in relation to blast- 
wave affects their survival probability. This 
is shown by the differences in casualties for 
personnel standing and lying when under blast 
wind translation. The response during the 
translation may also be an important factor 
in lowering casualties. 


1IT RESEARCH INSTITUTE 





FOREWORD 


This is the Final Report -to-ba_§ubmitted on Subtask 1125-A, 
"Personnel Casualty Study" (IITRI Project J6067), which is under 
Contract 0CO-PS-64-201^Subcontract'TJoT“B^70923 (4949A-24)-US. 
Contributors to-this report •fnr'lnde JU xCFeinstein, W. F. 

Heugel, M. L. Kardatlgg^BRTA. Weinstock. 



APPROVED: 


cTa. Miller^ ^ 
Assistant Director 
Mechanics Research Division 


Respectfully submitted, 
IIT RESEARCH INSTITUTE 

^ _ 

W. F. Hdwgelj Manager 
Systems and Facilities 
Engineering Section 


IIT RESEARCH INSTITUTE 


ii 


ABSTRACT 


This investigation has resulted in the development of a 
computer code (SEP - Shelter Evaluation Program) which predicts 
casualties of personnel when subjected to the initial effects 
of a nuclear weapon. Conditions for both sheltered and un¬ 
sheltered personnel were considered. Available casualty data 
were analyzed and functional relationships between casualty 
and appropriate weapon effects were approximated. Analytic 
models relating the weapon effects to these casualty functions 
were also developed for SEP Code. A validation of the code 
was performed using existing Hiroshima data. Finally, results 
are presented for a range of construction and weapon parameters 
to illustrate how SEP Code may be easily utilized to study 
shelter effectiveness iu terms of added survivors. 
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SECTION I 
INTRODUCTION 


The rational development of a nationwide shelter system 
must be based upon a tradeoff between the effectiveness of the 
shelter system, as measured in terms of increased survivors, and 
the cost of the system. Estimates of survivors in urban areas 
subjected to a specified nuclear attack have been based upon 
empirical casualty models which have been developed from 
Hiroshima data. Even accepting the large extrapolations of 
this data from the yield of the Hiroshima device to yields of 
current interest, one still cannot reasonably alter the data 
to incorporate structural mixes which vary from Hiroshima. 
Certainly "slanted" construction and designed shelters will dif¬ 
fer in their response and protection level from the Hiroshima 
buildings. 

The objective of this study has teen to develop a casualty 
model which admits a broad range of shelter configurations and 
attack conditions (i.e., yield and height of burst). The ap¬ 
proach taken was to develop an analytical model which was then 
to be validated with specific data points from the Hiroshima 
detaonation. The development of such a model can be conveniently 
divided into the following components: 

• The propagation of weapon effects (air blast, 
dynamic pressure, thermal radiation, and 
ionizing radiation) through the free-field 
(i.e., over an idealized plane surface). 

e The attenuation of these free-field effects 
as they interact with the local obstructions 
(buildings and/or natural topology) of the urban area. 

o The effects of the shelter on the transmission of 
the weapon effects to the personnel housed within 
the shelter. 
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0 The response of the personnel to each of the 
effects. 

• Test of personnel response against casualty 
criteria to determine the probability of injury 
or death. 

It should be noted that the term shelter is used in its 
broadest sense in this text. The description of a given type 
of shelter as used in this program defines the degree to which 
the free-field nuclear environment is attenuated in passing 
through the shelter. The types of shelters considered include 
conventional construction where there is some attenuation of the 
free-field effects, and shelters designed to resist given over¬ 
pressures, with effects on unshielded personnel being included 
for comparisons. The interaction and attenuation of the free- 
field environment with a range of conventional buildings is 
automatically handled within the computer code prepared during 
this study. The code has also been prepared in a format so 
that other shelter configurations may be considered by process¬ 
ing the attenuation afforded by these shelters as input to the 
code. 

A product of this study is a computer code organized ac¬ 
cording to the above five components. While it is recognized 
that interactions may well occur between each of the above 
phenomena, they are assumed to be uncoupled for this "first 
order" model. If a better understanding of the interrelation¬ 
ships become available, then the code may be easily modified 
to include these higher order effects. During the development 
of this code it has been our objective to produce an operable 
code which could be checked against available data and used for 
sensitivity studies. These applications hopefully will point 
to specific facets of the code requiring further improvement. 

The code has been so prepared that such modification may be 
easily added as they become available. 
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• This study was performed in parallel with a companion 
study, "Parametric Study of Shelter Vulnerability" (Subtask 
1614-A) Ref. 45. The gross characteristics of the model were 
developed during that study waile this effort was concentrated 
on the development of casualty criteria. As such the discussion 
of casualty criteria is given a prominent place in the report 
(Section IX). 
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SECTION II 


CASUALTY CRITERIA 


Rather extensive experimental data are available des¬ 
cribing the susceptibility of animals to the effects of a 
nuclear detonation. The purpose of this study was to construct 
a computer model based upon these data for predicting the per¬ 
centage of casualties resulting from a nuclear detonation de¬ 
pending on the shelter configuration housing the populus. Two 
interpretations of the data were required to achieve this ob¬ 
jective. First, the animal data had to be extended to encom¬ 
pass the human. Second, the condition inside a shelter had to 
be related to the experimental configuration. It should be 
noted that casualty criteria define levels of blast, shock, 
thermal, debris and radiation exposure required to cause death 
or injury to personnel. The propagation and attenuation of 
these weapon effects over the free field and interacting with 
shelters are not considered as a part of the definition of 
casualty criteria. 

2.1 PRIMARY BLAST 

The response of personnel to primary blast involves many 
complex interactions of the tree-field blast with the shelter. 
While these i'nteractions are not per se of concern to the 
casualty criteria they are significant in that they affect the 
form of the criteria. For example, consider the problem of a 
man sitting in the center of the room with a small opening to 
the outside environment. The following event occurs: 

• The free-field pressure pulse reflects off 
of the exterior of the shelter resulting 
in an increase in pressure. The duration 
of which is related to the clearing time 
of the wave around the structure. 
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• The blast energy begins to bleed into the 
room through the opening with the particle 
velocity and rate of pressure rise depen¬ 
dent cn the slice or opening, volume of the 
room, and outside pressure. 

• Complex reflections occur within the room 
as the pressure rises. 

The man in the room is therefore subjected to a pressure 
pulse which rises in steps to a peak and then decays slowly in 
time. The size of the steps depend on the room geometry, posi¬ 
tion of the man in the room and size of window opening; the 
peak pressure depends on these same parameters plus the external 
environment. The treatment of all these factors is clearly 
impractical for the first order model being developed, and a 
simpler formulation has been devised. 

Much of the work reported in the literature on blast 
effects of nuclear detonations on animals and people has been 
conducted by Dr. C. S. White and his co-workers at the Love¬ 
lace Research Foundation in New Mexico. Unless otherwise in¬ 
dicated, the information reported in this section was obtained 
from Lovelace publications and at a meeting with Dr. White. 

Four experimental variables were examined in the Lovelace 
sutdies of primary blast: (1) species of the animal; (2) dura¬ 
tion of the pressure pulse; (3) orientation of the animal to 
the wave front; and (4) onset of the pressure wave. Data for 
eight different species of small mammals were used to extrapo¬ 
late results to the weight range of man. Pressure pulse dura¬ 
tions ranged from 3 msec to 20 sec In the various experiments. 
One experiment had animals placed in four different positions 
with respect to the onset wave. The onset of the blast was 
instantaneous, gradual (several milliseconds), stepwise, or 
instantaneous (preceded by increased initial pressure) in dif¬ 
ferent experiments. Only instantaneous onset was used with all 
eight species. 
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Extrapolation to the human weight range was performed. 
Where basic mortality data were available, probit analyses 
we l e computed and estimates of overpressure for 50 perrent 
mortality (LD50) made. The pulse duration effect was corre¬ 
lated with respect to body linear dimension (cube root of 
weight). Experiments with stepped onset of the pressure pulse 
were reexamined to determine the importance of reflected pres¬ 
sure on the LD50. 

Pressure adjustments over short time intervals are ana¬ 
lyzed in detail. This bridges the gap between instantaneous 
onset and pulses preceded by gradual or stepwise pressure in¬ 
creases. 

2.1.1 Instantaneous Blast Onset 

Table 1 shows mean body weight and LD50 for the follow¬ 
ing experimental animals: mouse, hamster, rat, guinea pig, 
rabbit, cat, dog, and goat. Estimates for humans were ex¬ 
trapolated on the basis of linear dimension (i.e., cube root 
of weight) because this scaling technique provided the best 
fit to the experimental data. Other scaling parameters con¬ 
sidered were log weight, two-thirds root of weight, and the 
weight itself. There were no significant differences between 
the data fits for other extrapolations. 

All values shown in this table correspond to 12 psi am¬ 
bient air pressure and 24 hr mortality. Extrapolation of the 
LD50 based on linear dimension is shown graphically in Fig. 1. 

2.1.2 Blast Pulse Duration 

Duration of the pressure pulse is not a significant 
variable in the range of body weights relevant for humans and 
megaton range weapons. Although short durations (1 to 10 msec) 
result in reduced mortality in human weight ranges, no great 
reduction occurs in longer durations (in excess of 20 msec). 
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Table 1 


EXTRAPOLATION 

OF MAMMAL LD50 TO 

HUMAN RANGE 

OF SIZES* 

Species 

Mean Body 

Weight 

(kg) 

LD50 

(psi) 

Standard 

Deviation 

(psi) 

Mouse 

0.022 

30.7 

± 0.56 

Hamster 

0.089 

28.6 


Rat 

0.192 

36.6 

- 0.61 

Guinea Pig 

0.455 

34.5 

- 0.64 

Rabbit 

1.97 

29.6 

± 0.90 

Cat 

2.48 

43.6 


Dog 

15.1 

47.8 

- 1.06 

Goat 

20.5 

53.0 

- 2.79 

Estimated 

Mammal** 

70.0 

63.2 

± 5.8 

Child 

20.0 

50.9 

± 4.4 

Average 

Woman 

50.0 

59.4 

± 5.4 

Large Man 

90.0 

67.7 

± 6.1 


* L2 psi ambienc pressure, 24 hr. mortality. 

** LD50 for 70 kg mammal at sea level (14.7 psi) 
would be 62-64 psi based on data from Ref. 1. 


The short duration reduction is inconsequential since applicable 
peak overpressures (less than 200 psi) have durations consider¬ 
ably in excess of 20 msec. Even within shelters pressure change 
will occur within a few reverberation times. Therefore for a 
10 ft room and shock velocity of 1,000 ft per second duration 
of at least 20 msec are to be expected. 

2.1.3 Orientation to the Blast 

The orientation of the animal to the shock wave was 
found to be of minor importance. No significant differences re¬ 
sulted in an experiment with guinea pigs in four different 
positions with respect to a shock wave (Ref. 3). Orientation 
does not seem to be an important factor when the position of 
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Body Dimension Scaled by Cube Root of Weight (gr)l/3 
Fig. 1 EXTRAPOLATION OF INSTANTANEOUS BLAST ONSET LD50 TO HUMANS 






the animal does not change the waveform to which it is exposed, 
or when the pressure does nor significantly change ever the 
length of the animal's body. 

2.1.4 Stepped Pressure Pulse Effects 

Variation in pressure time history introduced by a 
complex structural environment may result in wide deviations in 
probability of kill for persons. The reflection and diffusion 
of shock waves so that the peak overpressure is reached gradu¬ 
ally in a series of steps or pulses can appreciably change the 
LD50 point from that of instantaneous onset. Specifically, the 
latter probability of mortality is altered when the overpressure 
onset is gradual, stepped, or instantaneous preceded by a grad¬ 
ual pressure increased. 

Tests were conducted on dogs (Ref. 4) using gradual 
pressure onsets to 170 psi over 30 to 150 msec (rate of rise 
restricted to 4,000 psi/sec). The results are shown in Fig. 2. 

No dogs died as a result of these tests. This is a large de¬ 
crease in mortality compared to the 47.8 psi LD50 of Table 1. 
Applying this to the human range, it is expected that if the 
pressure rise is gradual the LD50 pressure of people will be 
significantly increased over that shown in Fig. 1 and Table 1. 

The dog lung pathology shows that pulmonary hemorrhage occurred 
at the higher pressure levels. This correlates with the results 
of previous tests with lethal doses of overpressure in which 
pulmonary hemorrhage was identified as the mechanism of death. 

More quantitative results are shown in Fig. 3 which 
shows mouse LD50 for 1 hr mortality with different preblast 
initial pressures (Ref. 5). In this case the mice were initially 
subjected to gradually increased pressure, held at that pressure 
2 min, and then subjected to an instantaneous increase. Two re¬ 
gression lines are shown: (1) for the case of mice held at pre¬ 
pressure for 1 hr after the blast; and (2) for that of mice 
dropped back to ambient after the instantaneous pressure rise. 
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Neither case is a precise simulation of the nuclear weapon 
produced blast environment. 

The first case allows the mouse to recover in a pres¬ 
sured environment which may aid recovery; the second subjects 
the mouse to an unnatural drop from a pressured state to which 
he has had 2 min to adjust (refer to Fig. 3). 

The weapon produced blast onset would be more of an in¬ 
stantaneous one, even within a shelter. Therefore, embolism 
(the bends) as a result of the ensuing decompression would be 
less likely than for Case II. (The regression in Case I of 
Fig. 3 will be used below for stepped pressure pulses to calcu¬ 
late maximum possible adjustment to initial steps of blast waves.) 
Case I in Fig. 3 is representative of the effect of different 
ambient pressures because the pressure is held at a preset value 
before and after the blast. Using the LD50 regression equation 
in Fig. 3, the effect of different ambient pressures on human 
LD50 rates can be estimated. Taking the value of human LD50 
from Fig. 1 and Table 1, and applying the regression equation 
for Case I, the LD50 for a 70 kg human is found to be 75 psi 
at 14.7 psi ambient pressure. From Ref. 5, 

log(LD50, psi) * 0.590 + 0.842 log(ambient pressure, 
psi) . 

For human LD50 = 63.2 at 12 psi, we get 

log(LD50) = log63.2 + 0.842(log(14.7) - log(12.0)) 

= 1.801 + 0.842(0.088) = 1.875. 

Thus LD50 = 75.0 at 14.7 psi ambient pressure. 

2.1.5 Probability of Mortality by Instantaneous Blast 

The slope for log dose response to overpressure on a 
probit scale for percent mortality varies in the experiments re¬ 
viewed from 13.0 to 30.0 for small experimental animals. The 
slope in this case is that of a straight line as a probit scale 
through the experimental points establishing the relationship 
between the dose (in this case instantaneous pressure) and the 
response percent mortality. The homogeneity of these test 
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animals compared with the heterogeneity of the human population 
would suggest that a broader difference (from 1 to 99 percent 
mortality) i.e., less slope, would be expected tor bumans. A 
slope of 8.0 was chosen to represent the human relation. This 
establishes the rate of change of the mortality for humans to 
overpressure. Figure 4 illustrates this estimated mortality by 
blast with instantaneous onset as a function of the peak over¬ 
pressure for 14.7 psi ambient pressure. 

2.2 MORTALITY AS A FUNCTION OF TIME 

Probit analyses for guinea pig mortality at 1 hr, 2 hr, 
24 hr and 30 days were given in Ref. 3. Human LD50 is taken 
proportionally to these values as shown in Table 2. Figure 5 
shows the resultant probit curves for mortality for various 
times after exposure. The experimental guinea pig curves are 
shown for convenient comparison. 

Table 2 

LD50 AS A FUNCTION OF TIME AFTER EXPOSURE TO BLAST 


Time After Exposure 

Guinea Pig LD50* 
(psi) 

Human LD50 
(psi) 

1 hr 

40.3 

83.5** 

2 hr 

39.2 

81.2** 

24 hr 

36.2 

75.0 

30 day 

34.3 

71.1** 


** These values are derived proportionally to guinea pig 

mortality relative to the 75.0 psi peak overpressure which 
was the 24 hr LD50 derived for man. That is 


Human LD50(24 hr) 75.0 _ Human LP50(1 h r) _ 83.5 

Guinea Pig LD5G(24 hr) 36.2 Guinea Pig LD50 (1 hr) " 50.3 
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Table 3 showing cumulative percent mortality is taken 
from the graph showing mortality as a function of time. This 
tabic illustrates that time to death changes radically with 
level of blast exposure. It should be emphasized that cumula¬ 
tive mortality over all levels of exposure is irrelant and mis¬ 
leading. Those further away from the canter of the blast and 
thus expose to lower overpressures can be expected to take longer 
to die and thus may possibly be treated. Death requiring 24 hr 
may be averted by treatment such as bed rest which is not 
available to laboratory animals. However data on hospital treat¬ 
ment of blast injury is not available„ 

Table 3 

CUMULATIVE PERCENT MORTALITY 
(For Humans at 14.7 Ambient Pressure) 


Blast 

Overpressure 

(psi) 


Time After Exposure 

r"Kr~ 

TT* 

24hr 

30 days 

40 

0.5 

0.7 

1.4 

2.4 

50 

4.0 

5.0 

8.0 

12.0 

60 

13.0 

15.0 

23.0 

28.0 

70 

27.0 

31.0 

42.0 

49.0 

80 

45.0 

49,0 

60.0 

67.0 

100 

74.0 

77.0 

85.0 

89.0 

120 

90.0 

92.0 

95.0 

97.0 

150 

98.0 

98.3 

99.2 

99.5 


2.3 SUMMARY OF PRIMARY BLAST 

Animal body weight was related to the level of mortality. 
Specie to specie variation was rather large compared to the ex¬ 
perimental error estimate within each specie tested. Extrapola¬ 
tion of these results to 70 kg mammals gave 63-64 psi as the 
point for 50 percent mortality. Extrapolation was made on the 
basis of a linear dimension scale and the result was adjusted 
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to correspond to sea level ambinet air pressure. The pressure 
rise in a shelter space will occur increments (depending on the 
size of the opening) at tines emial to nhe reverberation time 
of the room. When the "gradual" rise is included, the LD50 
value is raised to 75 psi. It is recognized that the occupant 
may be exposed to reflected pressure greater than the incident 
but this will occur near walls. This phenomena is neglected 
but could be included in the model when reliable experimental 
data became available. It should be noted that since the LD50 
corresponds to the 62-64 psi overpressure point, it may be 
concluded that primary blast is not important in that other 
casualty mechanisms will take effect before blast. 

Duration of the pressure pulse is not a significant 
variable in the study of survival of humans in a multimegaton 
weapon environment. The orientation of the animal has not been 
shown to be important where the form of the wave is not af¬ 
fected by the animal's position. 

The estimates for instantaneous onset for 30 day (total) 
mortality from Table 3 were used to generate Fig. 6. Time to 
death (Fig. 7) was handled in a way that shows how different 
distributions of time to death occur at different levels of 
overpressure. 

Figure 7 was also obtained from Table 3 by forming the 
ratio of the difference in mortality between specific time in¬ 
tervals at a specific pressure level and the total mortality 
for that same pressure level. Figures 6 and 7 are used in the 
computer code with the overpressure to determine primary blast 
mortality as a function of time. 

2.4 DEBRIS EFFECTS 

Blast generated debris from buildings, furniture, etc., 
will be accelerated by the blast winds and may cause casualties 
to people within the path of the debris. This subsection is 
concerned with relating the effect of debris size and impact 
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velocity (within a range of body regions) to mortality and in¬ 
jury. The actual impact velocity, or debris velocity displace¬ 
ment history is estimated and described in Section III. 

The effects of missiles on biological tissues were re¬ 
viewed using available experimental evidence and including 
superficial, incapacitating, and near lethal categories of in¬ 
jury, Missiles consisted of glass, bullets, balls, and blunt 
objects. The parts of the body used were: skin, loxcer abdomen, 
thorax, limbs, and skull. 

Unfortunately, very little information was available re¬ 
lating specifically to mortality. Consequently, many judgments 
were made, rendering the results qualitative. It is the 
author's opinion that a logical means of relating missile mass 
velocity and mortality has been proposed. The task for future 
experimenters will be to gather the types of data required for 
casualty estimating. The method devised to integrate evidence 
concerning effects under differing conditions and make possible 
extensive extrapolation and interpolation of experimental re¬ 
sults was to develop dose functions consisting of mass M and 

o 

velocity V of missiles. Momentum MV, energy MV , and energy 
times velocity square Mv\ depending upon the mechanism of in¬ 
jury were assigned as the dose functions. The three functions 
applied to injuries were primarily in the nature of: (1) impulse 
loading for momentum; (2) crushing or tearing for energy; and 
(3) cutting or penetrating for energy times velocity square. 

This method makes possible digital computation of probable 
biological effects in a diverse missile environment interrelating 
the various kinds of experimental evidence available. The 
values estimated anc formulas proposed may serve as a hypothesis 
for further experimental validation Application of these 
formulas will reveal which mechanism of injury and missile en¬ 
vironments are of greatest importance. How critical the assump¬ 
tions may be can be revealed by variations of the parameters. 
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2.4.1 Discussion 


Four groups of data based upon experiments were considered: 
penetration of the lower abdomen ot dogs by glass (Ref. 3), ef¬ 
fects of missiles on human cadavers (Ref. 9), data on skull 
fracture (Ref. 10), and effects of missile impact on the chest 
(Ref. 11). There were considerable differences in the scope 
of these data groups and in the availability of raw observations 
for independent estimations of parameters. The probability of 
penetration or laceration by glass was related to the mass and 
velocity of the missile by Mv\ This statistic was then used 
to attempt to consistently account for other biological effects 
of missiles regarding injuries which primarily involve pene¬ 
trating wounds. Some results using larger missiles with bio¬ 
logical effects primarily involving bones did not fit this 
pattern. Especially the data on skull fracture proved the 
necessity of another statistic. Mass times velocity square, 
satisfied the requirements to explain crushing or tearing 
wounds such as most bone injuries or passage through regions of 
tissue. These injuries could be incurred with or without 
penetration of intervening tissues as in the case of skull frac¬ 
ture, bone breakage, or rib fracture complicated by internal 
lacerations. When the tissue has been penetrated, energy is 
the determining factor for estimating the probability of com¬ 
plete passage through a limb. It was found that even these two 
statistics did not correlated well for unilateral lung hemorrhage 
and simple rib fractures. It appeared from the data available 
that mass times velocity alone could be used to predict the 
occurrence of these injuries. 

The data and the resultant mass, velocity, and probability 
of each effect occurring are provided in Appendix V. It is 
again called to the attention of the reader that the values 
shown are indications of levels of injury and not mortality. 
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Table 4 summarizes the mass-velocity relationships ob¬ 
tained for the data from Appendix V. The dose relationship col¬ 
umn indicates the criteria employed to relate biological response 
with missile characteristics at the time of impact. The last 
three columns in Table 4 present the value of the missile- 
velocity dose for 10, 50 and 90 percent probability of the 
specific effect occurring. For optimistic and pessimistic 
estimates of the 50 percent probability values indicated in 
Table 4, 70 and 140 percent of the values provided are sug¬ 
gested, based on the uncertainty of the data for the MV^ doses, 
and 80 and 125 percent for the MV and MV 2 doses. Different 
probability values can be determined from Table 4 by the fol¬ 
lowing relation 


S 


2 


/ Tor P90 - log P50 n 2 
v 1.282 ’ 


Pi {x} = 


_JL_ 

27r S 


I 


e - (t-logP(50) 2 /2S 2 )dt 


where P^ is the probability of the effect occurring. 

Figure 8 is a graph of 50 percent probability thresholds 
for each effect in Table 4. The curves of Fig. 8 are obtained 
by applying the specific relationship of Table 4 between M and 
V to obtain the 50 percent probability of the effect occurring. 
For example, for rib fracture (MV relationship') the 50 percent 
probability is 31 x 10 3 gm ft/sec. Therefore, for a 1,000 gm 
mass, the missile velocity must be about 31 fps for 50 percent 
probability of rib fracture. If the mass of the missile is 
100 gm, the velocity must be 310 fps. In a similar manner, the 
50 percent values of the other effects at various velocities 
and ranges were determined. 


I IT RESEARCH INSTITUTE 


23 




























Table 5 provides an estimate of total body projected 

This data will be useful at a later date when complete con¬ 
sideration of debris areas and characteristics and body areas 
are used in making casualty descriptions. However, for this 
report it was used in making qualitative estimates of mor¬ 
tality based on the injuries reported in the data of Appendix 
V and summarized in Table 4. Of course the type and size of 
missiles has a definite effect on vulnerable areas. Future 
research on missile casualties might consider some of these 
effects when reporting data. 


Table 5 

BODY TARGET AND VULNERABLE AREAS (REF. 6 AND 7) 







Vulnerable Area 


Region 

Area 

ft 2 

7. 

of Total 

Area 

JET' 

7. of Region 7. 

of Body 

Head and Neck 

0.5 


12 

0.15 

30 

3.5 

Thorax 

0.67 


16 

0.65 

97 

15,5 

Abdomen 

0.46 


11 

0.45 

97 

10.5 

Upper Limbs 

0.92 


22 

0,19 

20 

4.5 

Lower Limbs 

1.65 


39 

0.38 

23 

9.0 

Kneeling presents approx. 

557. of 

field proiected area 


Sidewise presents approx. 

45-507. 

of field projected area 


End of prone 

presents 

257. 

of field projected area. 



2.4.2 Probability of Mortality and Time to Death 

Only limited data were available concerning mortality and 
time to death relative to mass and velocity of missiles. To 
make use of the injury data which were available, estimates of 
mortality based on severity of the wound were made. In addi¬ 
tion, time to death based on the mortality probability was 
estimated. These estimates are judgements of the scientists 
involved in the study, and are based upon general considerations 
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of the types of injuries and estimation of the environment which 
might be available for recovery. They are shown in Table 6. 

2.4.3 Incorporating Mass-Velocity Relations 

The goal of this study was to isolate casualty criteria 
which could be used to analyze the effectiveness of shelters. 

A series of functions have been developed relating missile 
characteristics to probability of injury. The severity of in¬ 
juries and associated probability of mortality based on severity 
have also been estimated. However, even at this stage func¬ 
tions are of limited value. Therefore, the effects of severity 
and probability of occurrence for each effect have been com¬ 
bined, averaged and extrapolated as necessary to obtain one 
continuous relationship covering the complete range of missile 
masses and velocities which might be of interest where data were 
available. For example, in Case 1 of Table 4 the effect of 
penetrating glass is classified as a superficial wound, these 
are estimated at 10 percent mortality. The probability of a 
glass fragment missile mass-velocity combination producing 
mortality can subsequently be determined by multiplying the 
probability of its producing the effect by the mortality 
probability. If the probability of producing a superficial 
wound is 10 percent, then the probability of producing mor¬ 
tality from the same missile mass-velocity combination is only 
1 percent. In a similar manner, each of the effect relation¬ 
ships was changed to mortality and plotted on one graph for 
each applicable body region (head, thorax, abdomen and limbs). 
Those relations marked ’'general'* were applied to each graph, 
while those indicated for a specific region were only used when 
that region applied. An example of the former is the category 
of skin laceration, which can be used for each region. Three 
graphs resulted similar to Fig. 8 with almost as many lines. 
Effects requiring the least velocity were selected in each 
mass region, and then various relations were averaged visually 
(at this point it hardly seemed worth the effort to do more). 
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Table 6 


ESTIMATES OF PROBABILITY OF MORTALITY AND TIME TO DEATH 


Severity 

Representing 

Mortality Rate 
percent 


Superficial 

Glass and other 
lacerations 

Unilateral lung 
hemorrhage 

Rib fractures 

10 

*. I 

.. J 
\ 

Incapacitating 

Glass and other missile 
penetrations 

Bone abrasions and 
cracking 

Internal lacerations 
from fractured ribs 

30 


Near Lethal 

Bilateral hemorrhage 

Skull fracture 

Passage through abdomen 
or other lethal areas 

Fractures large bones 

70 


Lethal 

Fatality within 1 hr 

100 



Probability of Mortality 
percent 

Time to Death 

0 - 

10.0 

1 mo 

10.1 - 

50.0 

1 wk 

50.1 - 

90.0 

1 day 

90.1 - 

100.0 

1 hr 


2B 




Three sets of curves emerged, one (each) for MV, MV^ and MV^, 
and separate ones for 10, 50 and 90 percent mortality jtuuauil- 
ity. These were made continuous by using the lowest velocity 
curves for each mass and cutting off the curves at the inter¬ 
section points. The only remaining problem was the low end of 
the velocity scale for high mass objects. It was decided that 
this point should be determined by the results of the trans¬ 
lation casualty criteria, discussed in the next section. The 
results of these inquiries are shown in Fig. 9. 10 and 11. As 
an afterthought, the casualty criteria employed in World War II 
was plotted on each of these figures, and the similarity was 
gratifying. It is highly recommended that future research in 
the areas of casualty criteria and mortality be aimed at 
covering the full range of mass and velocity of interest to 
civil defense problems, and further that an attempt be made to 
verify the estimates made in conducting this study. 

Figures 12, 13 and 14 represent the debris impact 
casualty criteria as it is employed in the computer code. 
Specific sizes of debris were selected and the corresponding 
impact velocity--kill probabilities were estimated from Fig. 9, 
10 and 11. 

2.5 / BLAST DISPLACEMENT 

Overall blast displacement effects for small rodents 
were available. This data did not show a significant effect 
with respect to weight. The overall mean velocity of impact 
for 50 percent lethality of small rodents was 36.4 ft/sec, and 
90 and 10 percent mortality point averages are approximately 
41 and 31 ft/sec respectively. Time to death was based on 
mortality probability, the same technique employed for debris 
impacts. 

The blast displacement data for small rodents was ex¬ 
trapolated in Ref. 1 to humans and an LD50 value of 26.2 ft/sec 
recommended. It was cautioned hov/ever that there was little 
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Fig. 13 KILL PROBABILITY FROM DEBRIS IMPACTS (Thorax) 









Fig. 14 KILL PROBABILITY FROM DEBRIS IMPACTS (Head) 






basis for such an extrapolation in view of the limited data. 

For this reason automobile accident data were reviewed Based 
upon fatalities in urban auto accidents 50 percent mortality 
was placed at approximately 33-8 ft/sec. While this refers to 
the velocity of the crash, not the body impact velocity, it is 
interpreted as lending support for an LD50 impact velocity 
greater than 26.2 ft/sec. The rodent data were therefore taken 
to apply to humans giving and LD50 impact velocity of 36.4 
ft/sec. This certainly is an area requiring further study. 

The injury probabilities were taken directly from 
Ref. 12 since no adequate contrary or supporting data were 
found. However the results of accidents and falls where people 
survive, and everyone has found such instances, make one ques¬ 
tion the validity of these numbers. It is because of these 
effects that a program of data gathering and tests is sug¬ 
gested to determine the actual initial impact velocities. The 
data of Fig. 15 were included in the computer code for es¬ 
timating the effects of blast translation. 

2.6 THERMAL EFFECTS 

Thermal energy burns of concern for casualty con¬ 
siderations are second and third degree burns. These burns 
may be inflicted by direct exposure of the skin to radiation, 
by the reradiation of clothing heated by the thermal energy, 
or by the ignition of clothing and subsequent burning of the 
skin. 

2.6.1 Effect of Thermal Radiation on Personnel 

It is estimated that 20 to 30 percent of the fatal casu¬ 
alties of Hiroshima and Nagasaki were caused by flash burns. 
Most, if not all, of the survivors exposed in the open at 
Hiroshima, had much less than 50 percent of the body surface 
burned. Even the lightest clothing gave protection by a 
factor of 2 and in a few cases by a factor of 4. It was 
determined that thermal radiation is capable of causing skin 
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bums and eye injuries in exposed individuals at such distances 
from the nuclear explosion that the consequences of blast and 
of the initial nuclear radiation were not significant, 

2.6.2 Burn Mortality 

Since second and third degree bums for all practical 
purposes involve infection, early therapy is essential. Clean 
second degree burns usually heal by epithelization, but if in¬ 
fection ensues, healing nay take up to 6 weeks. Healing time 
and symptomology for various burn situations is shown in Table 
7. 


Table 7 

ESTIMATED HEALING TIME AND SYMPTOMOLOGY FOR BURNS 


Degree 
of Burn 

Healing Time, 
days 

Symptomology 

1 

8 

Burning pain 24 hr, soreness and 
redness 8 days. 

2 

8-16 

(uninfected) 

Burning pain 24 hr, swelling. 


up to 42 
(infected) 

Blistering 2 to 30 hr; ooze serum 

3 to 4 days; scar (scabbing) 6 to 
10 days, aching and tenderness 8 
to 14 days. 

3 

20-30 

(uninfected 
small burns) 

Brief intense pain; swelling up 
to 2 days; blistering 24 to 36 hr, 
soreness 7 to 10 days, 


20-40 

(larger burns 
scar formation) 

Separation of destroyed skin 3 to 

4 wk; ulceration; epithelization 

4 wk. 


Many months 
(skin grafting) 

Scale formation 6 wk; plastic sur¬ 
gery required for burnt areas 

0.8 in. 
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Figure 16 from Ref. 44 illustrates the relationship in 
which the percent of total body burned is related with mor¬ 
tality based on over 1,800 treated burn cases, This figure 
represents the most up to date data on burn mortality. The 
effect of untreated burn cases has not been determined. How¬ 
ever, the important of treatment on mortality in the case of 
burns as well as in the other casualties is of great concern 
for civil defense purposes. Another effect not illustrated in 
Fig. 16 is the relationship between burn area, mortality and 
age as shown in Fig. 17. Figure 18 presents the relationship 
between the energy deposited on the skin and the weapon yield 
for first, second, and third degree bums. This variation oc¬ 
curs because of the relative rates of release of energy by 
various size weapons. Large weapons require more energy to be 
delivered to cause the equivalent burn because the delivery rate 
is lower. Small weapons release energy over a short period of 
time and have a higher delivery rate, thus requiring less total 
energy to affect the same injury. 

2.6.3 Determining Bum Areas 

Thermal radiation from a nuclear explosion, like ordin¬ 
ary light, can be shielded by opaque material placed between a 
given object and the fireball. The opaque material will absorb 
the energy and act as a shield providing protection from thermal 
radiation, unless reradiation or ignition occur. Transparent 
materials such as glass allow some thermal radiation to pass 
through. 

Some of the most extensive and destructive bums result 
from burning clothing; such bums are usually deep and circum¬ 
ferential in extent. Reflectance and transmittance generally 
play a more important role than the absorption which ultimately 
leads to ignition. Obviously, dark materials with a low igni¬ 
tion temperature are hazardous during nuclear attack. Trans¬ 
mittance depends both on the color and weight of the fabric. 
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Weapon Yield 


Fig. 18 THRESHOLD EXPOSURES FOR HUMANS EXPOSED TO WHOLE 
THERMAL PULSE (Ref. 31) 
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Table 8 relates the estimated energy to cause ignition of 
various materials. The results can be scaled to other yields. 
Figure 19 illustrates the relationship between the thermal 
energy delivered and the percent of the skin burned for a 1 MT 
weapon. These curves were estimated from explosed skin areas, 
thermal radiation energies necessary to cause burns, and the 
thermal energies necessary to ignite clothing. The curve was 
extrapolated to 100 percent based on Hiroshima data. 

Table 3 

VALUES OF ENERGY REQUIRED FOR IGNITION OF CERTAIN MATERIALS 
FOR A 1 KT WEAPON 


Materials (Ref. 24) 

(cal/cm 2 ) 

Newspapers, dry 

2.6 

Dry, rotted wood 

3.0 

Dry deciduous leaves 

4.5 

Brown Kraft paper, dry pin needles 

5.7 

Trees, not ignited 

5.6 

Colored fabrics, not wool 

5.8 

Many combustible materials, weathered wood siding 
(new wood charred) 

8.9 

White cotton, colored wool 

11.8 

Painted (white) wood siding, charred only 

18.5 


2.6.4 Time to Death 

Figure 20 from Ref. 20 is an estimate of time to death 
based on animal tests. The figure shows the probable time to 
death as a function of the skin area burned. By no means is 
this data significant to the problem since it represents only 
one test. However, results of this type were necessary for 
completeness of the analysis. Figures 16, 19 and 20 are incor¬ 
porated in the computer code for determining mortalities, in¬ 
juries, and time to death. The area burned is determined from 
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Fig. 19 and the incident energy, which is scaled to 1 MT. This 
is used with Fig. 17 and 20 to determine the probability of 
death and time to death. Any burns indicated are counted as 
injuries, therefore the number of bum injuries is the differ¬ 
ence between the number of people burned, and those dying. 

2.6.5 Eye Injury 

Results from the detonations over Japan indicate that 
eye injuries directly attributable to thermal radiation ap¬ 
peared to be relatively unimportant. There were many instances 
of temporary blindness occasionally lasting up to 2 or 3 hrs. 

In no case, among 1,400 persons examined, was the thermal 
radiation exposure of the eyes sufficient to produce permanent 
opacity of the cornea. 

Neither flash blindness nor retinal damage constitute 
major hazards during the daytime because of the restricted 
pupillary diameter which limits the amount of light entering 
the eye. Furthermore, the blink reflex, 100 to 150 msec, pro¬ 
tects the eye from undue amounts of radiation, except in those 
cases where the thermal impulse is delivered within extremely 
short times. This is the case for low yield weapons on the 
ground and for weapons of any yield exploded at very high al¬ 
titudes. Permanent eye injury would be expected only in those 
persons who were looking directly at the fireball. 

Indicated Areas of Research on Thermal Effects 

• No effort appears to have been directed to 
the evaluation of thermal damage for more 
than one weapon on target. 

• Configuration of the thermal-time pulse and 
variations due to burst height and trans¬ 
missivity of the atmosphere should be 
determined. 

• More needs to be learned about biological 
and physical effect of hot gases entering 
underground shelters. 
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• Extent of protection afforded by various 
types of clothing and shielding should be 
further exnlor^d. 

• Synergistic effects of thermal and 
radiation energies are not fully known. 

2.7 BIOLOGICAL EFFECTS OF INITIAL RADIATION 

The primary damage which causes radiation death is 
damage to the hematopoietic system which consists of the bone 
marrow, lymphatic system, and the spleen. Comparable patterns 
of hematopoietic response are shown by small animals and man 
but the response is at an accelerated rate in the animals be¬ 
cause of their shorter life span. Each species tested, and 
possibly man, can tolerate a chronic dosage of only five times 
the acute LD50 dosage. 

Blair (Ref. 15) stated that radiation injury is 
proportional to the dose rate. A part of this injury is re¬ 
paired spontaneously at a rate proportional to the magnitude 
of injury, and an irreparable fraction is present which is 
proportional to the total accumulated dose. Death following 
an acute dose is due primarily to excessive reparable injury 
(injury for which there has not been enough time or the proper 
conditions to recover); whereas life-shortening following chronic 
radiation is due to irreparable injury. 

There is essentially no difference in effect of a given 
dose delivered over a few seconds, a few minutes or a few hours. 
However, a comparable dose delivered over several days or weeks 
would be much less effective for some effects. The lethal dose 
for a mouse given over 4 wks is five times the single acute 
dose, whereas for the dog it is only 1.5 times- However, Blair 
postulates that extrapolation to another species may be made 
on the basis of the normal median survival time for that 
species. 
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2.7.1 General Effects of Radiation Doses on Humans 


As with biological effects, the shape of the mortality 
versus dose curve is not know for man.. Reliable information on 
man has been obtained for radiation doses up to 200 rem. As 
the dose increases from 200 to 600 rem, available data from 
exposed humans decreases rapidly and must be supplemented more 
and more by extrapolations based on animal studies. However, 
the conclusions drawn can be accepted with a reasonable degree 
of confidence. Beyond 600 rem, relationships between dose and 
biological effects on man must be translated almost entirely 
from observations made on animals exposed to ionizing radia¬ 
tions. Figure 21 presents representative quantitative values 
postulated for humans (Ref. 18). 

The effect of nuclear radiation on living organisms 
depends not only on the total absorbed dose t>ut also on the 
rate of absorption and on the region and extent of the body 
exposed. Different portions of the body show different sensi¬ 
tivities to ionizing radiations, also, there are variations in 
degree of sensitivity among individuals. In general, the most 
radiosensitive parts include the lymphoid tissue, bone marrow, 
spleen, organs of reproduction, and gastrointestinal tract. 

Gerstner (Ref. 16) notes that in the dose range from 
150 to 200 rem the acute radiation syndrome becomes noticeable 
in the majority of an exposed population, and it may reach 
clinical significance in a few highly radiosensitive persons. 
Approximately 200 rem will be the clinical tolerance dose, or 
the threshold dose, beyond which an appreciable number of per¬ 
sons can be expected to develop significant complications re¬ 
quiring hospitalization and intensive medical treatment. At 
these levels the physical fitness and work capacity of the 
patient will return to normal about three to four months fol¬ 
lowing exposure. Up to about 500 rem the clinical course of the 
acute radiation syndrome is largely determined by radiation 
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effects on the lymphoid tissue and the bone marrow. At doses 
greater than 500 rem, direct radiation Ha maop t-n rhe epithelium 
of the gastrointestinal mucosa becomes a decisive factor. Thus, 
in a 1 wide dose range (up to 500 rem) those individuals who sur¬ 
vive can overcome the acute radiation syndrome and return to a 
useful life. With doses larger than 700 rem, death usually 
occurs in a few hours to a week. Table 9 illustrates the pre¬ 
dicted clinical course for humans exposed to acute dosages of 
penetrating radiation. In general a median lethal dose of 450 
rem is postulated for man. The 39 percent fatalities given for 
a dose of 400 to 500 rem would appear to be low in light of 
subsequent information. 

Another study (Ref. 17) provided related data based on 
the assumption that human populations behave in the same way 
as animal populations, and the fatality versus dose curve is a 
normal distribution with a standard deviation of about 20 per¬ 
cent ox the I.D50 value. With 500 rem as the LD50 dose, the 
standard deviation is then 100 rem. The percent fatalities 
versus dose curve in this case is shown in Fig, 22, The time 
to death and incapacitating illness curves are shown in Fig. 

23 from Ref. 15„ These two cases represent the data employed 
in the computer simulation. Actually, the LD50 for man still 
is a matter of speculation and the estimates made in Fig, 22 
must be regarded as tentative. However, the radiation casualty 
criterion constitutes one of the better defined criteria in the 
author's opinion, 

2.7.2 Effects of Acute Radiation Poses 

Table 10 (Ref. 15) is presented as the best available 
summary of the effects of various whole-body dose ranges of 
ionizing radiation on human beings. Below 100 rem, the response 
is almost subclinical, although changes may be occurring in the 
blood. Between 100 and 1,000 rem is the range in which therapy 
will be successful at the lower end and may be successful at the 
upper end. The earliest symptoms of radiation injury are nausea 
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22 KILL AND ILLNESS PROBABILITY FROM IONIZING RADIATION 












Ionising Radiation Dose, rads 

Fig. 23 TIME TO DEATH AND ILLNESS FROM IONIZING RADIATION 









SUMMARY OF CLINICAL EFFECTS OF ACUTE IONIZING RADIATION DOSES (Ref. 16) 





and vomiting accompanied by discomfort, loss of appetite, and 
fatigue. The most significant effect is on the hematopoietic 
tissue. An important manifestation of the changes in the func¬ 
tioning of these organs is leukopenia, that is, a decline in 
the number of luekocytes (white blood cells). Beyond 1,000 rem, 
the prospects of recovery are so poor that therapy may be re¬ 
stricted largely to palliative measures. In the range from 
1,000 to approximately 5,000 rem, the pathological changes are 
most marked in the gastrointestinal tract; above 5,000 rem it 
is the central nervous system which exhibits the major injury.. 

Individuals exposed in the lethal range can be divided 
according to symptoms and signs into groups having different 
prognosis. These may be condensed into three groups in which 
survival is, respectively, probable, possible, and improbable 
(Ref. 18). 

Group 1 - Survival Probable 

This group consists of individuals who may or may not 
have had fleeting nausea and vomiting on the day of exposure. 
There is no further evidence of effects of exposure except for 
hematologic changes. The lumphocytes reach low levels early, 
within 48 hr, and may show little evidence of recovery for 
many months afer exposure. The granulocytes may show some de¬ 
pression during the second and third week.. Platelet counts 
reach the lowest level on approximately the 30th day, at the 
time when maximum bleeding was observed following the Japanese 
explosions, it is well known that all defenses against infec¬ 
tion are lowered even by sublethal doses of radiation and thus, 
patients with severe hematological depression should be kept 
under close observation and administered appropriate therapy 
as indicated. 
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Group 2 - Survival Possible 


Vomiting may occur early but will He of short duration 
followed by a period of well-being. However, marked changes 
are taking place in the hemopoietic tissues. Lymphocytes are 
profoundly depressed within hours and remain so for months. 

Signs of infection may be seen when the total neutrophile count 
has reached virtually zero (7 to 9 days). The platelet cound 
may reach very low levels after 2 wk. External evidence of 
bleeding may occur within 2 to 4 wk. In the higher exposure 
groups of this category the latent period lasts from 1 to 3 
wk with little evidence of injuries other than slight fatigue. 

At the termination of the latent period, the patient may 
develop purpura, epilation, oral and eutaneous lesions, infec¬ 
tions of wounds or bums, diarrhea, and melena. The mortality 
will be significant. J&B- therapy the survival time can be 
expected to b' 5 - " <L 

Group 3 - Sur v ival naproDd i ! 

If vomiting occurs promptly or within a few hours and 
continues and is followed in rapid succession by prostration, 
diarrhea, anoreria, fever, the prognosis is grave; death will 
almost definitely occur in 100 percent of the individuals with¬ 
in 1 wk. There is no known therapy for these individuals, 

2.7.3 Special Shielding Considerations 

Shielding of the spleen has been found to afford 
protection against radiation. The LD50 for mice exposed to 
total body X-radiation with lead shielded spleen is nearly twice 
that for mice with spleen exposed (Ref. 19 ). The data shown 
in Table 11 emphasizes the importance of shielding as a pro¬ 
tective measure. Data obtained subsequent to that shown in the 
table indicates that with the spleen protected, about 78 per¬ 
cent of the mice exposed to 1,025 rem survived. 
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Table 11 


INCREASED RADIATION TOLERANCE BY 
LEAD SHIELDING OF THE SPLEEN 


Dosage 

(rem) 

Spleen 

Shielded 

Number 
of Mice 

Number 
of Survivors 

Survivors 

(percent) 

700 

Yes 

27 

26 

96.3 


No 

11 

0 

0.0 

900 

Yes 

60 

41 

68.3 


No 

44 

3 

6.8 


2.8 COMBINED EFFECTS 

An examination of the comparative weapons effects data 
confirms that it is not possible to realistically dissociate 
the integrated input effects for other than empirical con¬ 
siderations. However, for purposes of studying combined ef¬ 
fects a situation can be conceived in which no single type 
injury is lethal or seriously incapacitating, but where a com¬ 
bination of two or more may be so, or where survival probability 
is reduced because of an exposure to two or more effects. Com¬ 
bined ionizing radiation effects are particularly important 
because those exposed to fallout radiation may have many types 
of injuries. In addition, combined thermal-ionizing radiation 
effects are of particular interest because of the wide range 
of thermal radiation and burn injuries which might be 
experienced. 

Alpen (Ref. 20) reported that for each level of X-irradia¬ 
tion the death rate is higher when a burn is also applied. 
Conversely, for every burn level studied, mortality increased 
with increasing X-irradiation. He concluded: 

1. Thermal trauma increased the lethality 
of the ionizing radiation. 
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2. The protective devices of animals against 
infection are so depressed by irradiation 
that the animal is unable to cope with the 
infectious processes arising as a result 
of the burn. 

3. Combined trauma may unmask or accentuate 
lesions which, although present in the 
animal receiving either bum or X-irradiation 
alone, are usually of less consequence. 

Valeriote and Baker (Ref. 21) working with rats found 
that a primary "shock" from thermal trauma potentiates the 
effect of X-irradiation. One series of rats were given 
second degree burns from which 100 percnet survival was ob¬ 
served for the first 30 days after trauma. Another series were 
exposed to 650 rem and 700 rem X-irradiation from which 94 
percent survival was noted by 8 days following irradiation. 

The most significant increase in mortality occurred when the 
thermal trauma was superimposed on the series that received 
700 rem of X-irradiation. A decrease in survival from 94 to 
approximately 40 percent was obtained in the 0 to 8 days period 
after combined injury. This period coincides with injury to 
the gastrointestinal tract. During days 8 to 20, which is the 
"bone marrow" phase of radiant injury, superposition of the 
thermal trauma on X-irradiation was found not to produce any 
statistically significant decrease in survival. A slight in¬ 
crease in mortality was found between days 20 to 30. This 
effect was attributed to infection of the animals from the 
bum area where a marked sepsis was seen to occur. 

In all the X-irradiation groups, exposure to increasing 
severity of bum trauma resulted in increased mortality. Anti¬ 
biotic therapy was found to be ineffective in combating the 
synergistic effect of combined bum and X-irradiation injury. 
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Bond (Ref. 22) reported a synergistic effect between a 
pulmonary infection and X-irradiation, An otherwise nonlethal 
pulmonary infection combined with doses of X-irradiation pro¬ 
duced a markedly increased incidence of the pulmonary disease 
and a sharply increased mortality rate above that expected from 
the radiation alone. Working on the combined effect of burns 
and X-irradiation, Bond reported that 31 to 35 percent burns 
combined with the radiation levels shown in Table 12 increased 
mortality. 


Table 12 

EFFECT OF COMBINED BURNS AND X-IRRADIATION 
(31 to 35 percent burns) 


X-Irradiation 

(rem) 

Mortality 

(percent) 

0 

50 

100 

65 

250 

100 


When 16 to 30 percent burns, which are not normally 
lethal, were combined with 500 rem X-irradiation, mortality was 
75 percent. Since 500 rem exceeds the LD50 value (450 rem) and 
therefore may be itself cause about 60 to 65 percnet mortality, 
the specific increase due to combined thermal (16 to 20 percent) 
and 500 rem X-irradiation is apparently about 10 to 15 percent. 

Figure 24 relates the data reported herein on thermal 
and radiation effects. This effect has not been incorporated 
in the computer code. The entire relation between radiation, 
thermal, and blast injuries requires further investigation. In 
particular, the relation between ionizing radiation and each 
other effect should be examined because of the fallout environ¬ 
ment which may exist after an attack, as well as the effect of 
a multiple attack, 
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SECTION III 
MODEL DESCRIPTION 


This section describes the various models developed for 
the overall computer simulation of casualties resulting from 
the initial effects of a nuclear detonation. The specific 
casualty mechanisms included in this model were: 

(1) Primary Blast, 

(2) Blast Translation, 

(3) Debris, 

(4) Thermal Radiation, and 

(5) Initial Ionizing Radiation. 

This first attempt at a model specifically excludes other 
important casualty mechanisms such as: 

(1) Fallout Radiation, 

(2) Fire, and 

(3) Ground Shock, 

and also indirectly excludes such important effects as scat¬ 
tering effects of gamma and neutron radiation and being "buried 
alive" by debris. The model also is only operative in the mach 
region inasmuch as only horizontal blast loading of people 
and structures are considered. 

It was the overall intention in developing this model to 
provide a modular framework which could be easily updated when 
appropriate additions and changes were warranted. It may be 
noted that where parts of the model were uncertain provision 
has been provided to treat these parts parametrically. For 
example, in evaluating casualties from debris, the model 
requires a mix of particle sizes. Here, one can get into the 
problem of predicting structural collapse mechanisms and the 
fragmentation of frangible plates. Instead of letting the 
model compute these mixes directly, the mix is specified 
parametrically by particle size distribution or more generally 
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by acceleration coefficient. There are, however, two areas 
in which the model utilizes questionable techniques and as¬ 
sumptions in order to deal with problems which are the subject 
of current research. These areas are in describing the geometry 
of the shelter system and the interaction of the blast wave with 
that geometry and also within a specific shelter. Although 
special techniques, which will be described below, were devel¬ 
oped to treat both these areas in an analytic fashion, they 
could also be treated parametrically as input data as discussed 
above. 

Detailed description of the casualty criteria and the 
way it was developed for each casualty mechanism was provided 
in the previous section of this report. 

3.1 CHARACTERISTICS OF NODE GEOMETRY 

Host of the casualty mechanisms which develop on the 
exterior of structures are highly dependent on geometric 
properties associated with the structure's length, width, height, 
spacing between contiguous structures and the orientation of 
the structure to ground zero, A general representation of the 
typical node geometry is illustrated in Figure 25 .- A particular 
structure located at the node is considered to have three struc¬ 
tures contiguous to it. This results, in general, in affecting 
five particular ground areas with respect to the reference 
structure where personnel may be present. In special instances, 
which deviate from the general representation, these five areas 
may be both inconsistent and inapplicable. These special cases 
may best be shown by developing expressions for each of the 
five regular areas. These are: 

Ai = S, ( l- S, cot 9) 

^2 = ^1^2 + 1/2 S2S2 cot 9 

A^ = S t (S l cot 9- S2) 

A^ = ^1^2 + 1/2 S2 tan 9 

A^ = $2(w - S2 tan 9) 
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and S2 are Spaces between Buildings 


To Ground Zero 



Fig. 25 NORMAL NODE GEOMETRY 





where and S 2 are distances between structures as shown in 
Figure 25 and m is the angle nf incidence from the reference to 
ground zero, i and w are structural dimensions. Corresponding 
distances associated with the areas are: 

D, » S^/sin cp 
^2 = + ^/cos <p 



When cp - 0 or v/2 : the five areas degenerate into a two 
area representation consisting only of the area of the two 
streets. These two areas are simply 


Aj_ - S X S 2 + 2 SjJ 
A 2 - 2 S 2 w 


( 2 ) 


When 0 cp c 7r/2, the area representation is developed dif¬ 
ferently for each of the appropriate casualty mechanisms (i,e., 
translation, debris, thermal radiation and ionization radiation). 

Equation (2) is utilized directly in cases of translation 
and ionizing radiation with no regard to the angle of incidence, 
cp. The rationale here is that these effects are not influenced 
substantia]ly by the angle of incidence because they take place 
over the entire exterior area. Exterior debris, however, is 
highly dependent upon the angle of incidence with the structure 
generating debris. Exterior debris is distributed over the 
area shown in figure 26. This area is only a part of the en¬ 
tire exterior area which consists of the sum of the two areas 
of Equation (2). Thermal radiation is represented by a propor¬ 
tion of each of the two areas. This proportion is dependent 
on the shading which a neighboring structure affords another 
structure. Equations (3) below outline the altered Equation (2), 
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Sy To Ground Zero 



!L ! = !t> sin + w cos ^ 

L * sin & + S 2 cos 6 
A * LU L 


SPECIAL GEOMETRY FOR OUTSIDE DEBRIS 
CALCULATIONS 






( 3 ) 


5T A i 


DT- a 2 


(21 + S 2 )/2 
(2w + S 1 )/2 


T,w » average length and width of a particular class 
of structures at the node 

* K x o 

D = D, - -r- —- sin cp 

1 ob 


and 

D** 

where 


K x 

—r- COS Cp 

Ob 


h = the height of the structure 
h Q k= the height of burst 
x 0 - the distance from ground zero 
3-2 WEAPON EFFECTS 


The purpose of the weapon model is to provide the free 
field weapon effects which occur as a function of weapon yield, 
height of burst, distance from ground zero and in the case of 
thermal energy, visibility. Weapon effects parameters which 
are predicted include peak incident overpressure, positive 
phase duration, time of arrival of the blast wave, thermal 
energy, and the radiation dose due to the presence of initial 
gamma rays and neutron flux. In addition to these parameters, 
other blast parameters are developed utilizing the Rankine- 
Hugoniot relationships. These include peak dynamic overpres¬ 
sure, peak particle velocity, and the shock velocity. The ap¬ 
proach in developing the weapon effects parameters is to 
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utilize Effects of Nuclear Weapons (ENW) (Ref. 15) data as 
much as possible. However, other sources are utilized where 
applicable. The computer code, which employs this model, has 
been developed on a modular principle allowing for ease of up¬ 
dating weapon effects prediction. 

Figure 27 illustrates the overpressure-height of burst- 
range relationship for a 1 KT burst (Ref. 15). Figures 28 and 
29 illustrate a similar relationship for positive phase dura¬ 
tion and arrival time respectively for a 1 KT weapon. The cube 
root scaling law makes these curves applicable to higher yield 
weapons. A linear interpolation scheme was utilized in obtain¬ 
ing intermediate values from these contour curves. 

Development and usage of this interpolative routine is 
diagrammed in Figure 30 and consists of the following steps: 

• Scaled heights of bursts and corresponding scaled 
ground ranges for 25-ft increments in h Qb along 
each constant overpressure curve are stored in the 
interpolative program. 

To obtain peak overpressure, given scaled h Qb and 
scaled ground range* 

• Each constant overpressure curve is followed from 
h Qb = 0 upwards until the interval is found on 
each overpressure curve, which contains the 
given scaled h Qb . 

• Linear interpolation is made within the chosen 
intervals to obtain the ground range on each 
constant overpressure curve corresponding to 
the the given scaled h Qb> 

• Interpolated ground ranges corresponding to given 
scaled h Qb are read for each constant overpressure 
curve. 
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Height of Burst, ft 



(b) Low-Pressure Range 



Fig. 27 


PEAK OVERPRESSURES ON THE GROUND FOR 1 KT BURST 






Distance from Ground Zero, ft 


Note: Dynamic pressure is given in parenthesis 

28 POSITIVE PHASE DURATION ON THE GROUND OF OVER¬ 
PRESSURE AND DYNAMIC PRESSURE FOR 1 KT BURST 
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Height of Burst, ft Height of Burst, ft 


Fig. 


(a) Early Times 



Distance from Ground Zero, ft 


(b) Late Times 



29 ARRIVAL TIMES ON THE GROUND OF BLAST WAV 
FOR l KT BURST 



















• Overpressure interval containing given scaled 
ground range is selected. 

• Peak overpressure is finally obtained by linear 
interpolation, based on given ground range and 
interpolated ground ranges corresponding to given 
scaled on constant overpressure curves. 

The thermal energy from the weapon may be expressed in 
the following functional form: 

q = LMJH (cal/cm 2 ) (Ref. 15) (4) 

R z 

where 

W - weapon yield (KT) 

R = slant range (mi) 

T =» tradmissibility of the energy in air. 

The transmissibility factor T was expressed in functional form 
utilizing 

T - e “ 3 * 912 R/V (Ref.23) (5) 

where 

V = visibility (mi). 

Figure 31 illustrates how this total energy Q is delivered as 
a function of scaled time. Scaled time, in this case, is the 
ratio of the time to the second thermal peak to the actual 
delivery time. The time to the second thermal peak is approxim¬ 
ated by 

t max « 0.032 W 1/2 (Ref. 15) 

Utilizing Figure 31, the thermal energy may be determined as a 
function of selected discrete time intervals. This is useful 
in evaluating the effect of evasive actions on reducing the 
kill expectancy associated with initial thermal radiation. 
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Equations (6) and (7) express the dosa of ionizing 
radiation in rads due to gamma rays and the integrated neutron 
flux respectively. 

R - iS!s 3 ,2 W e "R/360 (6) 

y ir 

R n = 15.5W e' R/21 ° (7) 

in R z 

with 


w' 

= w 

for 

o 

VI 

3 

VI 

w' 

= 0.614 W 1,163 

for 

20<W zlOO 

W' 

- 0.485 W 1,214 

for 

100<W£5000 

W' 

- 0.005 W 1,740 

for 

5000<W £1000 


and 

K - 1 for h Qb ^180 W 0 - 4 

K = 0.67 + 0.33 h ob /(180W 0,4 ) for h ob - 180 W 0 ' 4 

where 

and R^ are the gamma ray and neutron flux doses (rad) 

W is the yield (KT) 

R is the slant range (yds) 
h Qb is the height of burst (ft) 

These relationships are not applicable for slant ranges below 
3600 ft and for weapon yields below 1 KT. Within the specified 
ranges, Equations (6) and (7) are piecewise linear approximations 
of the appropriate curves in Ref. 15 and have been previously 
utilized in Ref. 24 . -They also seem to conform to the rela¬ 
tionships set out by Brode (Ref. 25). 
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3.3 INTERACTION EFFECTS 


When free-field weapon parameters are developed for some 
range of interest* height of burst and weapon yield, the results 
must be interfaced with the structural environment that exists 
at the point of interest. This interaction of weapon parameters 
and structural environment results in a most complicated effect 
often referred to as "shielding." The most important interac¬ 
tion effects include: 

• Alteration of overpressure due to close proximity 
structures. This alteration may be either positive 
or negative depending on the particular situation. 

• Alteration of overpressure within structures due 
to apertures. 

q Reduction of thermal energy by shading caused by 
other structures and window coverings. 

• Reduction of ionizing radiation by the effects of 
surrounding structures and the material within 
the structure itself. 

3.3.1 Bl ast Casualties Due to the Blast Alone 

Review of the literature indicates that only a small ef¬ 
fort has been made to determine the overpressure reduction due 
to the structural shielding. At Nagaskai it was first observed 
that certain groups of buildings which were closely spaced sur¬ 
vived overpressure damage, while others of the same construc¬ 
tion and at further ranges failed. This unorthodox observation 
led to a few shock tube and HE tests (Ref. 26 and 27). Figure 
32 (from Ref. 26) illustrates how shielding and protection of 
buildings occurs. It may be observed that for a constant sepe^ 
ration ratio the shielding effect increases with increasing 
positive phase duration. Once the separation ratio (i.e., the 
ratio of structure spacing to structure height) is determined, 
the overpressure may be reduced by the shielding factor, (x g . 
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SHIELDING FACTOR VERSUS SEPARATION RATIO 
(Comparison of Wind Tunnel and Shock Tube Results) 








Addition*! rednrHnns In overpressure might be due to the 
orientation of the structure to the blast but this is not con¬ 
sidered herein. 

The attenuated overpressure stemming from contiguous struc¬ 
tures may be further reduced due to apertures on the structure. 
Figure 33 illustrates the results of a shock tube study (Refs. 

28 and 29 ) of the effect of window openings on overpressure 
reduction. Summarizing, the free field overpressure p Q is first 
obtained. This is attenuated to p^ by proximity to contiguous 
buildings; p^ is further attenuated to p” within the structure 
due to the presence of apertures. Percent of blast casualties 
for each time to death on the outside is calculated directly by 
utilizing p^ and Figures 6 and 7. These percentages are reduced 
by the percent of people outside. In a similar manner casualties 
sustained indoors and attributed to blast effects alone are 
determined from p^J and Figures 6 and 7. These qualities are 
modified further by the percent of building type and the percent 
of population indoors. 

3.3.2 Whole Body Translation 

High velocity winds, both inside and outside of structures, 
cause persons to translate into surrounding rigid surfaces (in¬ 
cluding the ground) resulting in casualties due to the associ¬ 
ated impact. The translation, analysis considers a standing, 
sitting or lying man as a rigid body that can pivot at one point 
on the ground. Simultaneously this point can also translate 
horizontally as in a slot. The associated equations are sum¬ 
marized: (Ref. 42) 

9 = (BC-E)/(AC-D) 

( 8 ) 

x = (BD-EA)/D-AC) 
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Initial Interior Pressur 
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j 



0 0.2 0.4 0.6 0.8 - 1.0 

Ratio of Front Wall Aperture to Total 
Front Wall Area 


Fig. 33 NORMALIZED INITIAL INTERIOR PRESSURE 
" VERSUS FRONT OPENING SIZE FOR MODELS 

WITH FRONT AND BACK OPENINGS ONLY 
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where 


A “ i cosp -r a =.iid 

B = (F (t) - 4W)/m + r9 2 ( ucosB - sinb) 
C = r cos 
D = J/m 

E = (F(t)d - Ur sin3 )/m 


where 

p = coefficient of friction 
W = weight of the rigid body 
J = moment of inertia of the rigid body 
m = mass of the rigid body 


P - <P - 6 (t) 
2 


(a + y ) 


1/2 


F(t) - 144 hi (p f (t) - p b (t)) 
d “ h /2 cos© + w sin© 

The parameters <p, 0, a , 7, h, i, w, T, r^ and W are as illus¬ 
trated in Figure 34. Table 13 shows the value of these param¬ 
eters used in the analysis. The pressure on the front and back 
face of the man models p^(t) and p Q (t) is illustrated in Fig¬ 
ure 35. Equations ( 8 ) are numerically integrated as a function 
of time to yield the velocity/displacement time-history for both 
rotation and translation at the pivot point 

To facilitate applications of the casualty criteria, and 
minimize computer running times, the distance that a body may 
translate is broken down into 10 subdivisions of a basic unit 
of length. This unit is dependent on whether translation takes 
place inside or outside On the inside, the unit of length is 
the average room length. The outside unit of length is the 
longest distance associated with the outside area of interest 
(see Subsection 3.1). As the equations are integrated one of 
three things may develop: 
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b) Force Diagram 

Fig. 34 SLIDING-OVERTURNING MODEL 
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Table 13 

TRANSLATION PARAMETERS 


Parameter (Ref.30) 

Standing 

Sitting 

Lying 

Man Height (h), ft 

5.76 

3.0 

0.833 

Man Depth (i ), ft 

1.33 

1.33 

1.33 

Man Width (w), ft 

1.0 

1.58 

5.76 

c.g. x distance (a), ft 

0.28 

0.667 

2.63 

c.g. moment of inertia (J), 
slug ft 2 

8.57 

5.32 

8.57 

c.g. Y distance (y) , ft 

3.14 

0.833 

0.55 

Buildup Coefficient** 

8.0 

3.0 

2.5 

Note: Weight of Man, W, - 160 lb in all 
Coefficient of friction, |i, = 0.5 
**See Capabilities, Ref. 31 (Classified). 

cases. 

in all cases. 



(1) The body may translate horizontally a distance 
corresponding to a multiple of one-tenth the 
basic unit of length. 

(2) The body may rotate into the ground. 

(3) The body may neither translate nor rotate 

If case (1) applies, the velocity at each of the 10 stages is 
recorded as the body translates through each of the stages. If 
no translation or rotation occurs or if translation stops before 
translating the full unit length, the velocities corresponding 
to the remaining stages are set equal to zero. When the body 
rotates into the ground (90 deg) the total velocity (i.e., 
translation and rotation) is applied for all remaining stages. 
When the body starts from a lying position, only translational 
motion is considered. Having determined the velocity of the 
body at each stage, and the position at each stage with respect 
to a down wind rigid wall, the translation velocities are as¬ 
sumed equal to the impact velocities which can be directly 
related to mortality, injury and time to death. 
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A matrix of head velocities corresponding to each of the 
three initial body positions, (i.e., standing, sitting, lying) 
in each of the 10 subdivisions of the basic unit of length is 
transformed into a corresponding kill probability matrix by 
relating to Figure 15. An injury matrix is also formed utilizing 
Figure 15 in a similar manner. The above matrices are post- 
multiplied by a column vector of position percentages to form 
a vector of kill and injury percentages. Each element of those 
vectors corresponds to the percent of people killed and injured 
in each of the 10 subdivisions or stages of the basic unit of 
length. It remains to relate the actual areas to the basic unit 
of length. Each of the actual areas, as determined by one of 
the methods outlined in Subsection 3.1, has a representative 
unit of length associated with it. This unit of length is then 
associated with that stage of the basic unit of length which is 
nearest in size to it. The percentages killed and injured in 
that stage are then applied to the percent population in the 
actual area under consideration. The percent killed is further 
broken down by time of death as determined by the probability 
of kill in the area. 

The procedure described is applied on the outside of the 
structure and to each individual building type at the node under 
consideration. Consider, for example, the five-area outside 
geometric case developed in Figure 25. Suppose Aj has the 
longest distance, D^, associated with it. Then D 2 would be 
considered the basic unit of length and divided into 10 stages. 
After the probability of kill and injury have been determined 
for each stages of D^, the percent of people killed and injured 
in A^ is discovered simply for forming the product of the ratio 
A^ to the total area (i.e., A^ + A 2 + A^ + A^ + A^), the 
probability number, and the outside population percent. To 
find the probabilities of kill and injury in another area, say 
A^, it is laid over the basic area, A^, and the attributes of 
the stages which correspond to are assigned to it. This 
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might be the attributes of five stages if is half the 
length of Dj. The prorpss of finding the percent killed and 
injured in when the probabilities of kill and injury are 
known is similar to that oull.ineu for A^. 

3.3.3 Structural De bris 


The analysis to compute debris trajectories has been 
developed previously and is outlined in another report (Ref. 32 ). 
That analysis has been utilized to develop displacement-velocity- 
time relations as a function of debris characteristics and 
weapon parameters. The computation of casualties due to debris 
takes place in particular subset areas of the total area. The 
total outside debris area of interest is computed as shown in 
Figure 26. 

On the Inside of a structure the area of interest depends 
on the type of interior walls. Two types of interior walls are 
assumed to exist, plaster and masonry. Plaster walls are con¬ 
sidered to have no effect on casualty production and thus only 
the outside wails of the building in this case act to cause debris 
within the structure. Plaster walls Is a term used in the 
computer code to indicate no casualty production due to debris 
from interior wall failure. Such conditions as lath and plaster, 
wood stud and other type interior walls which might produce 
casualties may be included as masonry and their actual accelera¬ 
tion coefficient entered explicitly into the code. The items 
of interest in the plaster wall case are the entire building 
area and either its width or length depending on which is the 
larger. When the building has masonry interior walls there 
are two possible areas of interest depending on wall failure; 

1 ) the area associated with exterior room (i.e., rooms 
adjacent to exterior walls); and 2) the area of the remain¬ 
ing inner portion of the structure. Each of these areas has 
a characteristic length associated with it. When the interior 
masonry walls fail, they are assumed to be the only walls acting 
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nn the interior portion of the hn-Nding; outside wall failure 
is assumed to act only on exterior rooms in this case. The 
following four cases of debris action are thus possible within 
a structure: 

• outside walls fail - plaster walls 

• outside walls fail - interior masonry 
walls fail 

• outside walls fail - interior masonry 
walls do not fail 

• outside walls do not fail - interior 
masonry walls fail. 

After a characteristic length is chosen, it is broken 
down into 10 subdivision (sectors) in the same manner as dis¬ 
cussed in Subsection 3.3.2 for translation. Depending upon which 
of the four assumed debris action is under consideration, 
either a masonry interior or exterior wall is considered to be 
failed at one end of the characteristic length. An investiga¬ 
tion is undertaken within each sector to determine whether 
particles from the wall can strike a man in each of three body 
positions (standing, sitting or lying) in any of three places 
on the body (head, thorax, or abdomen). This investigation is 
accomplished in the following manner. For a given sector, a 
starting distance and ending distance from the wall under con¬ 
sideration is known Also known are the displacement-velocity¬ 
time relationships for all particles assumed to make up the 
wall. There are nine possible heights considered, correspond¬ 
ing to nine combinations of body position and body region of 
damage. Gravity forces are assumed to be the only vertical 
forces acting on debris particles and thus, time of flight may 
be directly related to initial particle position on the wall 
as shown below; 

t. = VAh./16 
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represents the vertical difference in 
height between the initial particle 
position on the wall and the nine im¬ 
pacted positions of interest on the body. 

t^ are time of flights corresponding to each 

Consequently, given the distance bounds on a sector and average 
velocity in the sector, the initial wall height of a specific 
particle size that may pass through the sector at some height 
of interest may be determined. It may be impossible to find 
an actual wall position to exist for some size particles. If 
this is the case, it is assured that that size particle does not 
pass'through the section at the height of interest. If a 
particle size exists in a sector its lethality and injury are 
determined by using Figures 12 through 14, the particle weight, 
and average final velocity in the sector. 

It is assumed that the effect of one particle striking a 
person is independent of the effects of other particles. There¬ 
fore, only the maximum effect over all particle sizes, all body 
positions and body regions of damage is considered in each of 
the 10 sectors. This effect is further assumed to be constant 
in any one of the ten sectors. The lethality in each sector 
is reduced by the body position probability, construction' per¬ 
centage, window percentage and probability of particle size. 

It remains to determine an average over the 10 sectors of the 
area under investigation, and then to divide the mortality 
figures into time-to-death categories. This division is ac¬ 
complished in the same manner as was done in the translation 
model. Finally, a weighted average total over all areas of 
interest is obtained by considering both inside and outdoor 
populations to be uniformly distributed over the total inside 
and outside areas. 
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3.3.4 Thermal Radiation Model 


The thermal energy reported as free-field actually includes 
attentuation due to the interaction of the atmosphere and the 
light source path to the ground. The thermal radiation energy, 
Q, as expressed in Eq. (4)« is further attenuated by whatever 
shielding is available between the radiation source and the 
recipient. The attenuation caused by full shielding as the 
result of interaction with another structure is 100 percent. 

The percent of radiation transmitted through window glass and 
screens as reported in Ref. 23 is given in Table 14. 

Table 14 

THERMAL ATTENTUATION FACTORS, T| t 


Single Glass 

Double Glass 

Screens 

(%) 

(%) 

56 

31 

67 


The above quantities may be combined in series for various 
combinations of window cover. (In the case of open windows no 
attenuation takes place.) The termal energy within a structure 
is then 

Q' - 

where represents an attenuation factor developed from Table 14 
taking each material placed between the interior and the ex¬ 
terior of the building into consideration. 

The thermal radiation energy in the street outside, is 
represented by the total Q, provided the street is not shaded 
by another building as shown in Figure 36. No thermal injury 
is assumed to occur in the shaded portion of the outside area. 

In order to compute casualties or. the outside, the curves in 
the radiant exposure as predicted are scaled to 1 MT. The 
curves in Figure 19, with the known value of radiant exposure 
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To Point of Burst 



Fig. 36 SHADING EFFECT OF SURROUNDING BUILDINGS 







and season of the year are used to determine the percent of body 
area burned. After the latter is known the corresponding kill 
and injury probabilities may be found by using Figure 16. 

Figure 20 utilizes the information obtained from Figure 16 in 
order to break down the kill probabilities by time to death. 

The final probabilities are adjusted for the percent of popula¬ 
tion on the outside and the ratio of the unshaded area to 
total area. 

In order to determine the effect of thermal energy within 
structures, both attenuated energy exposure areas within the 
structures and shielding from adjacent structures must be de¬ 
termined. The exposure area within the structure is computed 
using window dimensions, the angle of incidence of the thermal 
energy, 0, and the building orientation to the blast &. Three 
floor areas are determined: 

a. area for people standing, 

b. area for people sitting, 

c. area for people lying on the floor. 

An example of the linear dimension into the room is illustrated 
in Figure 37. An attenuated Q is determined within each of 
these three areas and kill and injury probabilities computed 
as in the outdoor case discussed previously. The probabilities 
are then combined based on the percent of the total building 
area involved to determine the total kill and injury probabilities 
for the building. Computations are repeated for each building 
at the point of interest. If uprange shielding by a contiguous 
building occurs, the total irradiated area within the building 
is reduced by the percent of the building being shielded. 

3.3.5 Ionizing Radiation Model 

Ionizing radiation dose determined by using Equation (4) 
and (5) includes atmospheric attenuation between the burst 
point and the node point. Unlike thermal radiation, however, 
ionizing radiation is not completely attenuated by the presence 
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of structural components (e. 6 ., builuinga, walls, etc). Gamma 
rays are attenuated iri the following manner: 

I = R^e” 0,0113 P x (rad) 

where p is the density of the shielding material (pcf) and x 
represents the path length through the shielding material. 

Figure 38 illustrates the relationship between the shielding 
thickness and the attenuation factor applied to the integrated 
neutron flux (Ref. 33) for several common building materials. 

Here the attenuation factor is much more sensitive to the type 
of material employed as shielding then in the case of gamma 
radiation attenuation where only the mass thickness is important. 
The effects of scattered radiation and buildup factors have 
been neglected. The accuracy of the above radiation computa¬ 
tions seems to be consistent with the effect of ionizing radia¬ 
tion as a kill mechanism for high yield weapons. 

In the case of outdoor population, shielding is approximated 
by a building having the average characteristics of all the 
buildings at the node. Furthermore, outdoor population is con¬ 
sidered surrounded by this shielding. Once the computations 
have been made to determine the average shielding of outdoor 
population, the actual doses may be found, and using Figure 22 
the probabilities of death and injury determined. The time 
to death relationship is shown in Figure 23. Here, as in thermal 
radiation, the minimum time to death was selected as one day. 

The indoor population is exposed to a dosage which is 
dependent upon attenuation factors which vary within the build¬ 
ing. These attenuation factors are computed using the thickness 
of material placed between the interior and exterior of a build¬ 
ing. This is determined by computing the shielding of the 
floors and walls of the building for individual cells within 
the building as illustrated in Figure 39. The ionizing radiation 
dose in each cell is computed and the corresponding probabilities 
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ATTENUATION OF INTEGRATED NEUTRON FLUX 






Building Section (elevation) 


cell floor area = (f. or w) ‘A cos 9 
tan 9 - bur , s . t hei g ht 

range t t 

shielding thickness at a cell = c ~ -g + N 

N = number of floor thicknesses the energy must p 
through to reach the cell of interest 

l = building length 
w = building width 


■ie. 39 METHOD OF DETERMINING SHIELDING IN BUILDINGS 




of death and injury again determined for each cell from 
Figure 22. The population within any building is considered 
uniformly distributed, therefore, a weighted average, based on 
cell area and probability of kill and injury can be determined. 
This process is repeated for each building type at the node 
.and adjusted for percent of buildings of a particular type of 
construction. 

3.4 FACTORS NOT INCLUDED IN SEP CODE 

Topography obviously plays a significant role in the inter¬ 
action of weapon parameters with the structural environment. 

The free field overpressure, for example, has been shown to 
increase on the up slopes and decrease on the down slopes of 
hilly terrain (Ref. 34). Also buildings on the reverse side 
of hills are protected from thermal and direct ionizing radia¬ 
tion (for low height of burst). These effects, however, were 
too ill-defined at present to be included in the analysis. 

The effect of ground shock on the production of casualties 
has been reviewed in this study. Although this effect was con¬ 
sidered, it was not included in the analysis for two reasons: 

• At lower overpressures (i.e., below 20 psi), 
which are of primary interest, the ground 
shock effects are negligible in relation to 
other effects, and 

• One-dimensional ground shock information 
(Ref. 35) which can easily be implemented 
shows little correlation with the latest 
two-dimensional ground shock analyses now 
being employed (Ref. 36). 

The new analyses are too expensive and time consuming to in¬ 
clude in this effort. 
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3.5 COMBINATION OF INDEPENDENT CASUALTY EFFECTS 


Two matrices in the output of the SEP code provide the per¬ 
cent killed and survived respectively for individual casualty 
effects and within specific time periods. These individual ef¬ 
fects are first combined with the specific time periods (i.e,, 
hour, day, week, month) and finally transformed into total sur¬ 
vivors, mortalities and injuries. 

The first of the two matrices, percent of population killed 
by each individual effect (e,g., blast, debris, thermal, etc.) 
in each time period (e,g,, hour, week, one day, etc.) is trans¬ 
formed into the second. This is accomplished by sequentiallly 
subtracting the percent affected in the present time period from 
those remaining in the previous time period. Initially the per¬ 
cent of people inside or outside is used as in the previous time 
period depending upon where the specific event takes place. As 
an example of this technique, suppose that 50 percent of the 
population are indoors and that 10 percent of the indoot popula¬ 
tion die from blast in an hour. Then, the percent which will 
survive indoors from blast for an hour is 50 - 10 «* 40 percent. 
Suppose also that 20 percent die from 1 hour to a day, 5 percent 
die from 1 week to a month and 2 percent are injured. Then 
40 - 20 - 20 percent survive between a day and a week, and 
20 - 5 = 15 percent survive a month, Finally, 15-2-13 per¬ 
cent are uninjured from blast indoors. 

After the survival matrix has been generated, total sur¬ 
vival from all effects may be determined within each time to 
death for inside and outside populations. This is done by ob¬ 
taining the products of surviving each individual effect.. As an 
example, suppose that 20 percent of the population survive a 
week from blast indoors and 15 percent survive a week from trans¬ 
lation indoors. Then 20 x 15 - 3 percent is the probability of 
surviving the combined effects of indoor blast and translation. 

The total uninjured persons, injured and dead may be cal¬ 
culated by applying the population, indoor and outdoor, to the 
appropriate total percent surviving from all effects. Total sur¬ 
vivors are those injured plus those uninjured, the total dead 
are 100 percent minus the survivors. 
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SECTION IV 
RESULTS 


In order to illustrate the prediction of casualties, the 
computer code developed in the previous section was utilized in 
a variation of parameter study for the evaluation of shelter 
systems. It should be emphasized that the results obtained from 
these parameter variations were picked to show up the sensi¬ 
tivity of the computer model. When parameters are varied in 
this computer model a complicated set of interactions takes 
place. As an example, when all parameters were varied for 
buildings not surrounded by any contiguous structure debris 
results were insignificant. However, when structures were 
introduced debris results were significant. To further illus¬ 
trate, consider the problem of building debris which effects 
people outside the building. With large spacing between 
buildings, no effect of debris shows up in the model, but as 
space between buildings is reduced the importance of debris 
on outside mortalities and injuries is increased. 

4.1 Primary Buildings 

The parameters of the basic structures which were employed 
ir) the parameter variations are presented in Table 15. (Table 
13 is in the actual computer input format, see Appendix 1 for 
a more complete explanation of this format). Whenever parameter 
variations were made they were made one at a time while holding 
the rest of the parameters in Table 15 constant. 

4.2 Range Variations 

Figure 40 illustrates the mortality effects inside the 
reinforced concrete frame building (R/C) for a 1 MT, 7,000 ft 
height of burst. The probability of being a mortality from 
translation effects, debris effects and thermal effects within 
the reinforced concrete building are displayed as a function 
of distance out from ground zero. Corresponding overpres¬ 
sures are displayed below the appropriate ground range and 
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Table 15 

PARAMETER VARIATIONS 


Reinforced Concrete Structures 

node and building parameters 

AREA OF NODE It SQ. MILE 

number or buildings at node i 
LOCATION or NODE X*20000, Y»0,0 
CONSTRUCTION PERCENTAGE 100, 

HEIGHT 90, ET 
WIDTH 65, FT 
LENGTH 65. rT 

average space south 1000 , north 1000 , east 1000 , west 1000 , 
DENSITY of wall MATERIAl(CONCrETE) 135. LBS,/FT,»*3 
WALL PANEL THICKNESS « IN, 

ROOF THICKNESS 10. IN, ROOF DENSITY(CONCRETE) 135, LB,/FT,»#3 

floor thickness s in, 

material DENSITY of FLOOR(CONCrETE) 135. LB$/FT**3 

BASEMENT WALL THICKNESS 10, IN, BASEMENT DENSITY 135, LB./FT,R*3 

SOIL DENSITY 75. LB./FT.»*3 

stories 9 

WINDOW PERCENTAGE 30* 

SILL HEIGHT ABOVE FLOOR 2,5 FT. 

NO SHIELDING PERCENTAGE 0.0 
SCREEN PERCENTAGE 0,0 
SINGLE GLASS PERCENTAGE 50. 

COMBINED SINGLE GL*S5 AND SCREEN PERCENTAGE 0,0 

double glass percentage 0,0 

SHIELDING from DOUBLE glass and screen percentage 0,0 
drapery blind and shade percentage so, 

DISTANCE FROM EXTERIOR WALL TO INTERIOR WALL 5.0 FT, 

INNER ROOM LENGTH 20, FT, 

NEXT 

CHARACTERISTICS OF WALL FRAGMENTATION 
NUMBER OF PARTICLES 9 

INSIDE PERCENT 0,0,100.,0.0,0.0.0.0.0,0*0.0.0,0.0*0 
MASONRY FAILURE PRESSURE 1, PSI 

overpressure at failure i. psi 
NUMBER OF PARTICLES 9 

OUTSIDE PERCENT 100.,0.0,0,0.0,0,0,0.0,0.0,0*0.0*0,0 

wall type i 


MASONRY INTERIOR WALLS 
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Table 15 (Contd) 


People 

description or personnel 

POPULATION DENSITY 100. PEOPLE PER 3Q. MILE 

INDOOR PERCENTAGE OF POPULATION 50. 

OUTDOOR POSITION PERCENTAGES STANDING 100. SITTING 0.0 LYING 0.0 
INTERIOR POSITION PERCENTAGES STANDING 25. SITTING T5. LYING 0.0 
NEXT 

SKIP COMMANDS 

ACCUMULATION 

IONIZING 

NEXT 

SOLVE 


Wood Buildings 

V: fi H T P.0» rT 

WIDTH 3?. r T....... .. 

LENGTH 45 . 

AV“sAGP SpAC . SOUTH 10P0, NQoTh 1 6 00 EAST" 1000. WFST'lOOC. 
r E V 5 1 7 Y OF w-UV MATERIAL* (Wood) ”Jo7~Css7 /Ft7<>«3 ~ 

WAi _l pA N EL THICKNESS 4 IN. 

RCOf THjCKHFSS 1 IN. RCOr DENSITY fwOOOT 3oV LBl’/FT.w 

FLOOR THICPNFSS 2 -IN. . 

yat^rtal density'of floor (wood) 30 . insT/ciJi FT ‘ 

DAsEHENT u A L L THICKNESS 10. I ST"' p AsEMFNT PEN? !ty~5o.0 "LB ./Ft . * * 3 
SOIL DENSITY 75* *LrWFT^«>*3 
5 7 0 RI £ S 2 


Best Available Copy 
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Table 15 (Contd) 


WINDOW PErCFNTAGE 30.. 

SILL HEI,GH T AHc'vE~^~L0C'' FT. 

NO SHIELDING PERCENTAGE o.'o 

SCREEN PERCENTAGE 0.0 

single glass percentage" "so* : 

combined single ol a ss a n e screen'" pE"RcTNf age’oTo""" 

DOUBLE GLASS PERCENTAGE 0*c 

' sH!FLD! nG >Rrv"D a UP LE~GlA'SS A N D SCREEN PERCENTAGE ’o.6~ 

Drapery blind and shade ’percentagT’IToT . . 

DISTANCE FROM EXTERIOR WALL TO'lNTERI'OFT waU T<>T P T7 
!NNFR 9 COM LEINGTH T'ftV*F t7 

NEXT ..'. 

CHARACTERISTICS CF wall FrAGKEnFAtToN. 

accelerati 0n coefficient' IoT 

NUMBER OF PARTICLES 0 ‘ . 

inside percent icc.«*n.d.o 7 d 7 oTo 7 b 7 o *o 7 o 7 o", 6 Vo 7 b»” 

masonry failure’pressure TT'psT 
overpressure at failure i* p si 

NUMBER OF ^ARTICLES 3 

OUTSIDE PERCENT'~ioT.‘7o7fS o.o«o.o.o,c*o.o.r.o* o767o7o" 

WALL TYPE C 

« PLAsTEP INTERIOR WALLS . 













I 
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(10) (5) (3) 

Range from Ground Zero, thousands of ft 

Fig.40 RANGE EFFECTS ON MORTALITIES (Indoor) 





are in parenthesis In order to observe the full effect of 
debris, the failure pressure for the nonload bearing outside 
panel wall was set at 1 psi. In reality, tae failure pressure 
may be well above 1 psi and this will reduce both the mortality 
and injury due to debris. In Fig. 40, for example, if the ex¬ 
terior wall did not fail until 10 psi was reached, there would 
be no debris casualties beyond a 16,000 ft range. The apparent 
step in the translation curve in Fig. 40 is due to the assumed 
personnel posture within the concrete building. 

Figure 41 illustrates the injuries associated with the 
people indoors. At the lower ranges, the probability of 
injury is low due to the corresponding high probability of 
mortality. As the ranges increase the various injuries become 
more important and then begin to decrease and finally the 
curves go to zero. Here again, the effect of sitting as 
illustrated in the translation injuries would be eliminated at 
about 39,000 ft. Here too, if the 1 psi failure pressure of 
the outside walls was assumed to be a more realistic higher 
value, injuries due to debris would be eliminated in a much 
smaller range. 

Figures 42 and 43 illustrate the mortality and injury 
relationships for persons outside of shelters. Because of the 
large spacing (i.e., 1000ft between structures) the effect 
of thermal radiation is prominent and debris is negligible. 

In Fig. 42 the flat slope of the curve starting at about 
25,000 ft is due to burning of exposed skin areas. Only 
below 25,000 ft does clothing ignite and a greater kill proba¬ 
bility result. Assuming a winter condition reduces casualties 
resulting from thermal radiation outdoors due to an appropriate 
increase in the amount of clothing worn. Personnel on the 
outside were considered to be standing, and translation mor¬ 
talities are indicated out to a range of 41,000 ft with injur¬ 
ies due to translation extending to about a range of 65,000 ft. 
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'ig. 41 RANGE EFFECTS ON INJURIES (Indoor) 
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Range from Ground Zero, thousands of ft 
Fig. 42 RANGE EFFECTS ON MORTALITIES (Outdoor) 














4.2.1 Effect of Positions 


As was previously described, Fig. 40, the effect of per¬ 
sonnel posture within a shelter was seen to vary as to whether 
people were standing or sitting. Figure 44 illustrates the 
indoor mortality for personnel lying on the floor. Translation 
effects are dramatically reduced in this case over those standing. 
No indoor mortality is seen to occur beyond a range of 22,000 ft. 
However, the debris mortalities are slightly increased with 
personnel lying on the ground because their more vulnerable 
parts, that is, their chest and head are exposed to a greater 
assortment of debris. Here, all debris strikes the ground, 
but not all debris passes through a point 4 ft above the ground. 
Debris mortalities result out to a range of 30,000 ft for per¬ 
sonnel lying, however, for personnel standing or sitting, it 
predominates out to a range of about 26,000 ft. Comparing the 
sitting portion of the translation curve of Fig. 41 with the 
translation curve of Fig. 44, it becomes apparent that in some 
instances sitting appears to result in lower casualties than 
lying. This peculiarity is the result of the assumptions em¬ 
ployed in the translation model. The sitting person is assumed 
to slide and rotate about his feet. Rotation is the predomin¬ 
ate form of motion. Whenever rotation attains 90 degrees, the 
problem is stopped and the current motion information is used to 
determine the mortality. For a person lying, it is assumed that 
no rotation takes place and the body slides until impact with a 
wall occurs. A person sitting who rotates through 90 degrees 
will in actuality continue to tumble and slide during and after 
the rotation until he strikes a wall or friction overcomes 
exterior loading of inertia. During this period he will actually 
achieve the same or a greater velocity than the lying person. 
However, analysis of this sliding-rotating man is a much more 
difficult problem and beyond scope of the present program. The 
reader must therefore be wary of this anamoly. The effects of 
personnel posture on thermal radiation mortalities was not 
significant as illustrated in Fig. 44. 
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Fig. 44 MORTALITIES FOR A LYING POPULATION (Indoor) 






Figure 45 illustrates the mortality probability as a 
function of range for personnel lying on the ground outdoors. 

As would be expected, from the previous effects indoors, thermal 
calualties are not reduced by lying down, and again the trans¬ 
lation effects are significantly reduced from a range of 40,000 
ft as per Fig. 42, to less than 25,000 ft here. These illustra¬ 
tions give the implication that the response of people may be a 
very important factor in saving their lives in a nuclear attack. 

4.2.2 Evasive Action to Thermal Radiation 

Figure 46 illustrates the advantages of taking evasive 
action from the thermal effects of a nuclear weapon. Three curves 
are shown for no evasion, two second evasion and ten second ev¬ 
asion respectively. These represent the times from the initial 
exposure until the people are completely shielded. For the 
case selected, it appears that evasion does not help when the 
range is between ground zero and less than 10,000 ft or beyond 
about 24,000 ft. Evasion is not a very important parameter 
beyond the 24,000 ft range because only exposed skin areas are 
effected and the total kill probability is low. However, in the 
range between 10,000 and 24,000 ft, the effective evasive action 
is quite significant. Even the rather slow time of 10 seconds 
can represent 100 ft (i.e., an average street width) if people 
run at 10 ft per second. It is difficult to imagine people 
responding in less than 2 seconds, unless they are inside a 
room where they can jump to a shaded area. Even so they would 
have to know both what to expect and what to do. 

4.3 Building Types 

Obvious variations in building type may include the des¬ 
cription of the debris which occurs, and the failure pressure 
associated with it. As an example of the effect of the building 
type, a two story, one family wood frame buxiding was assumed. 

Here again, the building failure pressure was specified low 
enough to insure that a complete picture of debris effects 
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Range from Ground Zero, thousands of ft 
Fig. 45 MORTALITIES FOR A LYING POPULATION (Outdoor) 





















would evolve. Figure 47 illustrates a relationship between range 
and mortality inside the wooden building. In comparison with 
Fig. 40 for the reinforced concrete building, the translation 
mortalities did not change because translation effects for people 
standing inside buildings are not effected by building type but 
rather by the window opening percentages. Thermal effects are 
seen to increase somewhat because the greater ratio of exposed 
interior area to the total interior area of the building. Debris 
effects are far more interesting. At 15,000 ft range the mort¬ 
ality probability due to debris in the wood house is about 58 
percent while in the concrete structure in Fig. 40 it was seen to 
be about 75 percent. In the woodframe house debris mortalities 
extended to about 26,000 ft. 

It is obvious that care must be exercised in evaluating 
these results. First, the debris assumed for the concrete 
structure was heavier than that assumed for the wood structure. 
For the wood structure it was assumed that the 1x6 in. wood 
siding failed in 2 ft lengths for all overpressures. The re¬ 
sult was a fragment weighing less than 1 lb, which according to 
the casualty criteria illustrated in Fig. 10, must be accelerat¬ 
ed to nearly 100 ft per second before it is lethal. On the other 
hand the concrete building in Fig. 40, was assumed to fail in 
debris sizes of about 2 in. radius which require much lower 
ballistic coefficients (w/AC^, for lethality), than the wooden 
debris. In the short distance of travel involved, this differ¬ 
ence in ballistic parameters was apparently not enough to over¬ 
come the increased velocity requirements due to the low weight 
of the wooden debris involved. 

This example serves to focus the obvious requirement for 
knowing the character of the debris formed, as well as the 
associated casualty criteria. Both of these are areas in which 
more information is required. A further point concerning the 
debris casualties of the wood and concrete structures must be 
made. If the failure threshold of the concrete building had 
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Fig. 47 RANGE EFFECTS ON MORTALITY FOR WOODEN BUILDINGS (Indoor Casualties) 






occured at a higher level, the effect of the difference in 
debris would obviously not occur and the weed building would 
appear to be more hazardous than the reinforced concrete build¬ 
ing at these ranges. 

Figure 48 illustrates the injury probability for each 
effect for the wood building. Again the effects of debris and 
translation injuries are more prevalent as in the mortality 
case above. 

4.3.1 Building Configuration Variations 

In this investigation the building parameters that were 
varied included the story height and the building width. The 
effect of varying the external and interior room lengths were 
also investigated and provided interesting results. All varia¬ 
tions were conducted at 20,000 ft fange for the 1 MT, 7,000 ft 
height of burst conditions. 

4.3.2 Building Story Height Variations 

Figure 49 illustrates the effect on indoor mortality due 
to varying the height of the structure, while maintaining a 
constant total floor area. Mortalities due to thermal radia¬ 
tion decrease slightly with increasing building height due to 
the reduction in the ratio of exterior room area where exposure 
takes place to total floor areas as the height of the structure 
is reduced. Translation mortality essentially remains constant 
since it is based on an overpressure level which in this model 
does not depend on the building parameters being varied. The 
mortality due to debris effects are increased with decreasing 
building height because the interior area exposed to debris 
from the failure of interior walls becomes a greater part of a 
total area which is held constant. Two debris sizes were select¬ 
ed, one for exterior and one for interior walls. The debris 
from exterior walls does not produce a significant amount of 
casualties, so a reduction of the area exposed to the exterior 
wall debris causes an increase in mortality because the area 
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exposed to interior debris is increased. 

Figure 50 illustrates the effects of st^^y hMghr on ont*- 
door thermal injuries. Only a slight increase in mortalities 
is caused by decreasing the building height and increasing the 
exposed exterior areas. 

4.3.3 Plan Dimension Variations 

The effect of varying the plan dimensions of a nine-story 
building is shown in Fig. 51 for indoor casualties. The primary 
effect occurs in the case of thermal radiation casualties As 
the building width is increased, the illuminated area becomes a 
greater percentage of a total floor area and more casualties 
result. 

4.3.4 External Room Length 

The effect on casualties due to a variation in the ex¬ 
ternal room length is shown in Fig. 52. Only debris casualties 
have been shown since translation and thermal effects remain 
essentially constant over the region of variation. The differ¬ 
ence in the exterior and interior wall debris size assumed is 
the reason for the reduction in the casualties with an increase 
in the external room size. Practically no injuries or mortalit¬ 
ies are generated in the external room. Therefore, an increase 
in the exterior room size increases the total area associated 
with the exterior wall debris size and the result is a decrease 
in total casualties. 

4.3.5 Internal Room Length 

Figure 53 illustrates the effect of varying the interior 
room length and is perhaps the most informative of the building 
parameter variations. With very small interior room lengths, 
there are no debris mortalities but about 55 percent injury. 

This is explained by the insufficient acceleration of the debris 
particle to a lethal velocity. At very close distances to the 
wall the debris particles do not have time to accelerate to a 
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lethal velocity before they impact. However, the velocity is 
adequate to cause injury. As the interior room length is in¬ 
creased, lethal particle velocity is achieved and mortality in¬ 
creased. Injuries are reduced because the low velocity region 
now represents a small part of the total area. As the room length 
is increased further, the mortalities drop off and the injuries 
continue to decline. This is caused by the particles impacting 
with the ground before they are able to reach the people at the 
far end of the room. 

4.4 Translation 

As can be seen from the figures presented previously in 
this section, the overall computer code is highly sensitive to 
the translation phenomena. As a result of this, further results 
and discussing of translation problems are provided. 

Figure 54 illustrates impact velocity as a function of the 
overpressure that was taken from the various runs performed in 
generating the other curves. The overpressure plotted is that 
which was applied to the model, both interior and exterior 
velocities are shown. The first observation to be made is that 
there is a significant difference between the sitting and 
standing cases. The second observation is that the results are 
a smooth function of the overpressure, with only minor depend¬ 
ence on the positive phase duration, as shown by interior and 
exterior velocities with the same overpressure. The inside 
cases correspond to shorter positive phase durations. 

This dependence on overpressure requires some additional 
explanation. The values illustrated in Fig. 54 are for rotation 
of the body only. This rotation to 90 degrees occurs in a very 
short time after the arrival of the blast wave. For the yields 
involved, the time for the rotation to occur is only a small 
part of the total positive phase duration, however, as will be 
shown later translation is dependent on the positive phase 
duration. 


IIT RESEARCH INSTITUTE 


121 






Head Impact Velocity, fps 







Returning to Fig. 54, the most interesting part of the 
curve is below 3 psi for the standing cases. In this region 
the slope flattens out. Of primary importance is the fact that 
in this region, when the slope is quite flat, the translation 
velocity thresholds occur. This is also shown as the region 
where the overpresure range relationship. Fig. 55, flattens out. 
This means that a small variation in casualty criteria can cause 
significant variations in the ground regions over which these 
variations occur. Therefore, in order to predict casualties 
with reasonable assurance, one must be able to make reasonable 
predictions of the impact velocities. Similarly, casualty 
criteria must also be well defined. It is further obvious from 
the velocity differences between a sitting and standing posture 
that the reactions of people will play an important part in 
whether they will or will not be injured during this first phase 
of the translation problem. During the second phase of the 
translation in which people are knocked down, roll and tumble, 
their reactions will likely be of even greater importance. 

Figure 56 is an illustration of the velocity displacement 
relationships for several overpressures from the 1 MT, 7,000 ft 
height-of-burst case for a man lying parallel to the direction 
of the blast wave motion. The translation distances reveal the 
importance of considering what people will do and how they will 
react if blown these distances by the blast wave. Obviously 
the problem is not over when people rotate 90 degrees and 
strike the ground. 

This selected discussion of the blast translation effect 
has been an attempt to illustrate the importance of both the 
casualty criteria and the response of people in the prediction 
of casualties associated with a nuclear weapon. 

4.5 Fire Mortalities 

Up to this point only direct effects have been considered. 
This subsection discusses the relationship between blast 
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mortalities and fire mortalities for blast injured people 
trapped within burning buildings, (i.e., as predicted by the 
model). The model predicts a range in which persons indoors 
will be seriously injured and unable to move unless outside 
assistance is provided. This immobile period may last for as 
much as several hours after detonation of the weapon. The 
types of unjuries incurred are serious head injuries and broken 
limbs. In some cases self mobility will never occur. However, 
for this example, it is assumed that no persons may move and 
that no assistance is provided. It is then possible to 
estimate the additional casualties which may occur as a result 
of fires started within buildings where injured persons are 
trapped. 

Figure 57 illustrates translation injury probability for 
the sample problem. Translation injury only was assumed, be¬ 
cause it is the primary contributor to injuries. The second 
curve is the probability of ignition in a room for a clear day 
obtained from Ref. 23. With these two curves, estimates of 
the fire mortalities can be made. First, the blast translation 

2 

casualties occur in the area represented by tt r^ . For the 
problem at hand r^ is 15,000 ft. 

Fire casualties will occur out to the range where there 
is a meaningful number of uninjured translation survivors, or 
approximately 29,000 ft from Fig. 57. Beyond this range most 
of the people are uninjured and they are assumed to assist 
injured persons prior to complete fire development, or they put 
out fires before the spread occurs. Therefore, the area sub¬ 
jected to fire is tt r^ - 7r where r^ is 29,000 ft. 

Two possibilities exist: (1) to assume that 30 percent 
of exposed rooms in each building ignite; or (2) that 30 per¬ 
cent of the buildings ignite. If the latter is assumed, fire 
spread from building to building must account for a complete 
kill to 29,000 ft. The blast mortality area is 2640 x 10^ ft 
squared; the ratio of the fire mortality to the blast mortality 
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area is then 2640: 710 or 3.7; an almost 400 percent greater 
area is involved. 

Assuming case (i) above holds, that is only 30 percent 
of the exposed rooms of each building are effected, the build¬ 
ing area still represents more than 100 percent of the blast 
area. Considering the population density, which is an obvious¬ 
ly important number in determining the mortalities, (e.g., 
Chicago in the daytime has a average population density of 
50,000 people per square mile out to 15,000 ft. From 15,000 
to 30,000 ft the average population density is 30,000 people 
per square mile.), a 3:5 ratio is established. The ratio of 
fire to blast mortalities becomes approximately 220 percent, 
if all within the total injury region become mortalities, and 
67 percent if only even 30 percent are affected. Two further 
things must be kept in mind at this point: 

• The population density figures are for daytime; 
a nightime figure would reduce the population 
in the center of the city, the assumed ground 
zero, and raise the level in the outer ring 
where fire is more important. 

» The percentage of people indoors and outdoors 
will be different for the two regions considered, 
and this would certainly influence the ratio 
of mortalities. 

Although the above discussion is very qualitative, it does 
indicate that fire mortalities would probably be on the order 
of the blast-caused mortalities for people indoors. The 
incident of fire spread may well extend casualties well beyond 
the range of primary ignition. Of course, secondary ignition, 
(i.e., fire starting due to blast or ground shock and not 
thermal pulse) will be a contributor, but no information is 
presently well established on this subject. 
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However, secondary fires did occur in some of the weapon tests, 
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jured. They may be assumed to be putting out the fires or 
helping those outside who are seriously injured. 
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SECTION V 


VALIDATION 

Validation of models for predicting casualities to per¬ 
sonnel from the effects of nuclear weapons poses obvious diffi¬ 
culties. Although data from Hiroshima and Nakisaki weapons 
tests can be employed, the sources of this data report only 
partial information, and in many cases only sample data is 
available. The best data found on these two cities comes from 
Ref. 37 and 38, but even with this, questions of accuracy arise 
when a sample group must represent the total population within 
a building. Where available, weapons test data of dummies and 
animal translations were gathered for comparison (Ref. 39 and 40). 

Table 16 lists several cases from Hiroshima which were 
selected for comparison purposes. Structural information on 
the specific buildings was obtained from Ref. 38. All compari¬ 
sons were made assuming a 13 KT weapon at 2000 ft height of 
burst with a visibility of 10 miles. Table 16 presents the 
information for the buildings checked and the corresponding 
results. Models both with and without translation are presented 
because the model determines all results as if they were in the 
mock region, while for Hiroshima the regular reflection region 
ran to about 2000 ft from ground zero. This is not to^say that 
it is more likely that blast translation takes place in^the 
mock region than in the regular reflection region. The loading 
in the regular region, however, is too complicated to include 
in the present model. 

Figure 58 illustrates the mortalities as predicted for people 
within the Hiroshima telephone office, as if it had been locat¬ 
ed at various ranges from ground zero. The total mortality with 
and without translation is provided as a function of range from 
ground zero. Individual mortalities for each kill mechanism 
and the effects of yield and heights of burst changes at 2000 
ft range are also shown. It becomes quite obvious that kill pro¬ 
babilities can be greatly influenced by these parameters. 
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Range from Ground Zero, ft 

Fig. 58 HIROSHIMA TELEPHONE OFFICE RANGE VARIATIONS 






Table 16 

COMPARISON OF ACTUAL AND PREDICTED HIROSHIMA CASUALTY RESULTS 


Building 

Actual 

percent 

Model with 
Translation 
percent 

Model without 
Translation 
percent 

Central telegraph 

15 

100 

13.5 

Central telephone 
office 

14 

93 

14 

Outside unshielded 
at 3000 ft 

96 

100 

100 

Outside shielded: 




a. Railroad Post 
Office R/C 

3.6 

0 

0 

b. Postal Office R/C 

4 

0 

0 


•Neglecting translation from the model, the check on the 
results is gratifying; however, several things must be realized. 
Tirst; all buildings must be modeled at the present time by 
rectangular structures. Most of the actual buildings were not 
simple, rectangular structures, and some had openings in the 
cente*. Second, the people are assumed to be uniformly distri¬ 
buted 'throughout the building; actually, they may have been 
bunched in specific regions of the building. Therefore; actual 
.verification of the model is impossible with the data available, 
however, gross inconsistencies can be indicated. 

Except for blast translation, the gross comparisons are 
quite 'good. There were no primary blast mortalities reported 
for Hiroshima, and the model predicted none. There were very 
few thermal injuries within buildings, which was also a model 
prediction. There was mainly ionizing radiation kill and injury 
in the region from 1000 to 3000 ft, and the code predicted a 
significant portion of the injuries in this region to be due to 
radiation. The greatest disparity occurred in the blast 
displacement mechanism. Although cases of blast displacement 
were recorded, no one was reported killed by this effect. 
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However, as noted before for the Hiroshima burst, the regular 
reflection region extended to approximately 2000 ft and the 
computer model considers all cases to be in the Mach region 
where winds are parallel to the surface and blast displacement 
is more likely. 

To check at least the translation portion of blast disolace- 
ment, anthropomorphic dummy data gathered from weapon tests was 
used. The comparisons are based on displacement of body parts and 
on rotation of the body at these displacements. Table 17 compares 
the actual and predicted maximum displacements and velocities. The 
maximum velocities for the standing dummy seem quite accurate, how¬ 
ever, the displacements are considerably different. The major cause 
for difference is that the computer code stops computing when the 
dummy has rotated 90 deg in either direction, while in the actual 
case the body continues to slide and tumble until it comes to rest. 

In the case of the prone dummies, no actual velocities 
were determined and only displacements can be used. Where dis¬ 
placements are recorded, they vary considerably from the pre¬ 
directed results. This may be due to local ground interaction 
effects which occur in actual tests and are not reflected in 
the model. When one compares the early stages of motion for 
each weapon test, the results indicate a much more satisfactory 
prediction capability than the total displacements indicate. 

Figures 59, 60 and 61 illustrate the velocity displacement his¬ 
tory for the early stages of the actual and predicted tests. 

It should be noted that the predicted results are based on the 
actual overpressure and positive phase duration. In addition 
to the c.g. velocity, head velocity displacement curves are 
shown. Based on these, it can be seen that the predictions 
are quite reasonable. Figure 62 illustrates the predicted 
and actual body rotations for the 37 KT Plumbbob and 1/2 KT 
Snowball tests. 
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Fig. 59- TRANSLATION HISTORY OF ANTHROPOMETRIC DUMMY (5 ft - 9 in. - 169 lb) 















ight: 



Fig. 61 TRANSLATION HISTORY OF ANTHROPOMETRIC DUMMY (5 ft 










Fig. 62 PREDICTED AND ACTUAL ROTATIONS OF ANTHROMORPHIC DUMMIES 








The model only allows rotation of the body to occur about 
the feet, while in the actual case, the feet are free to leave 
the ground, and rotation occurs about the center of gravity. 
However, as can be seen from the figure, the actual rotations 
for the Snowball test are quite similar to those predicted. In 
the Plumbbob test, the model predicts backward rotation initially, 
but because of the friction force on the feet, final rotation 
and impact is in the forward direction. Had the feet of the 
model been removed from the ground, rotation would have been 
negative as in the actual case. However, it can be concluded 
that the translation prediction techniques are reasonable. 
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SECTION VI 

UOiSiCLuSIGNS AND RECOMMENDATIONS 
The result o£ this effort, along with Subtask 1614A, 
has been the development of a deterministic tool in estimating 
shelter effectiveness in terms of protection, when exposed to 
conditions more severe than design criteria. This evaluation 
of effectiveness is only possible provided detailed knowledge 
of specific shelter failure criteria is available. Furthermore, 
models for individual casualty mechanisms depend on a knowledge 
of appropriate biological damage functions. The present state- 
of-the-art is such as to limit the practicability of developing 
a statistical representation of shelter effectiveness. There 
are many detailed problems which can be investigated to refine 
the SEP code output. These problems are associated with struc¬ 
tural interactions, debris prediction, translation prediction 
and casualty criteria for many of the initial effects. The 
primary effort in future work should be to remove the qualita¬ 
tive aspects that now surround the casualty data. Development 
of statistical measures for both structural and casualty data 
would enable statistical bounds on the SEP code output to be 
established. 

The following conclusions can be made based on the 
results of the computer code and the information gained in con¬ 
ducting this study: 

• The computer code provides a means of evaluating 
the protective capability of various shelters, 
provided adequate information describing the 
shelter is available. 

• Many of the casualty criteria are studied estimates 
and require further refinement. 
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c The interaction of f r*»p-fl pi d hi ast effects 
and structures is an important link in the 
prediction of casualties. The present infor¬ 
mation on this subject is insufficient, 

• The physical posture of personnel in relation 

to blast-waves affects their survival probability 
This is shown by the differences in casualties 
for personnel standing and lying when under blast 
wind translation. The response during the transl 
tion may also be an important factor in lowering 
casualties. 

• Fire mortalities are of the same order of 
magnitude as blast casualties. 

The following are recommendations: 

• More adequate casualty criteria should be 
developed for debris, translation and com¬ 
bined effects. Experimental programs to 
relate debris mass and velocity to injury 
and mortality should be undertaken. Further 
studies and experiments of combined affects 
should be encouraged. Particular attention 
should be paid to the effect of medical treat¬ 
ment and the time to death. 

• A joint experimental and analytical study 
should be undertaken to determine the rela¬ 
tionship between physical response during 
translation and reduction of casualties. 

In addition the effect of the rigidity of 
the impacted material should be studied. 
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• Debris size, initial velocity and drag 
characteristics are necessary to adequately 
predict debris casualties inside and out¬ 
side structures. Presently, the only avail¬ 
able estimate of the failure sizes is given 
in Ref. 43 for hydrostone panels. Full-scale 
tests at various overpressures and simulated 
weapon yields should be conducted on a variety 
of panels. These tests should be related to 
analytical results and/or a reliable empirical 
relation should be developed. Various types 
of bearing and nonbearing panels with and 
without windows should be included in this 
study. Orientation effects should be studied 
in these panel tests. 

• Basements are an important area for further 
study. Failure criteria should be established 
for basements and suitable analysis developed to 
apply these criteria. 
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APPENDIX I 


PROGRAM USER'S MANUAL 

A. 1 .INTRODUCTION 

The code is a problem-oriented computer language which 
deals with the problem of defining casualties and injuries in 
a nuclear environment. Input to the computer code is a series 
of statements that describe the weapon parameters and the 
structural and personnel characteristics of a representative 
area. This area may consist of from a single building or 
open area to an area the size of which is consistent with a 
constant weapon effects assumption. The output of the code 
is normally the effects associated with each of five primary 
kill' mechanisms. These five kill mechanisms are further broken 
down by indoor and outdoor occurrence, and treated by the time 
required to cause death (i.e., an hour, day, week or month). 

In addition, injuries are distinguished from mortalities and 
personnel completely uninjured. The individual effects are 
combined and totals are found first for each category of time, 
and then for the overall problem. A detailed description of 
the environment associated with each kill mechanism is also 
available to the user as optional information. 

A.2 INPUT LANGUAGE 

The form of the input to the processor differs signifi¬ 
cantly from most other computer programs. Format and ordering 
of card input have been almost eliminated and replaced by a 
set 'of commands consistent with civil defense terminology. The 
fact that a group of characters starts with a letter is 
sufficient to recognize a word. Similarly, a number indicates 
numerical data; a decimal point distinguishes a decimal number 
from an integer; and a blank or a comma after a group of char¬ 
acters indicates the end of that group. 
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' The input commands may be data descriptors, data to be 
stored, or more generally information about the input process. 

A data descriptor (e.g., YIELD or HEIGHT OF BURST) communicates 
to the system that the number that follows is to be associated 
with that command. Data to be stored consists of the numerical 
datd associated with data descriptors. Commands such as WEAPON 
PARAMETERS, WEATHER AND TOPOGRAPHY, NODE AND BUILDING PARAMETERS, 
CHARACTERISTICS OF WALL FRAGMENTATION, DESCRIPTION OF PERSONNEL, 
SKIP COMMANDS, INTERMEDIATE OUTPUT, and SOLVE actually control 
the internal flow of the program. Table 18 contains the dic¬ 
tionary of available commands. Each command occupies a separate 
input card in the data and a card may be continued by placing 
a dollar sign ($) in the first column of the following cards. 
Each input card is printed on the system output before the so¬ 
lution phase of the processor takes over. It is possible to 
put comment cards into the input phase simply by placing an 
asterisk (*) in Column 1 of the card. This card is simply echo 
printed, but otherwise ignored. Table 19 contains a typical 
set of commands which are sufficient to describe a full casualty 
problem for two buildings. 

Once the problem has been initially described, any sub¬ 
sequent changes will involve only those parameters that are 
being changed. It may be noted that a full set of commands as 
specified in Table 19 is quite lengthy. In order to shorten 
this list all input parameters have been initialized to consist¬ 
ent values. Thus, unless a problem contains input data which 
differs from this initialized state, the input list of Table 19 
is shortened considerably. Table 20 illustrates the initialized 
state of the code which specifies the value of all input param¬ 
eters implicitly at the beginning of all problems initiated by 
a SOLVE statement. An explicit statement of an implicitly de¬ 
fined input value is often useful in order to obtain a record 
that this value has been utilized in the problem under 
consideration. 


IIT RESEARCH INSTITUTE 


150 










Table 18 

A DICTIONARY OF AVAILABLE COMMANDS 


Process Command Data Descriptor* Units 


WEAPON PARAMETERS 

WEATHER AND TOPOGRAPHY 

NODE AND BUILDING 
PARAMETERS 


YIELD MT 
HEIGHT OF BURST ft 
GROUND ZERO COORDINATES ft 

VISIBILITY miles 
SEASON OF YEAR 


AREA OF NODE 

NUMBER OF BUILDINGS AT NODE 

LOCATION OF NODE 

CONSTRUCTION PERCENTAGE 

HEIGHT 

WIDTH 

LENGTH 

WEIGHT 

AVERAGE SPACE S_N_E_W_ 

DENSITY OF WALL MATERIAL 

WALL PANEL THICKNESS 

ROOF THICKNESS/ROOF DENSITY 

FLOOR THICKNESS 

MATERIAL DENSITY OF FLOOR 

BASEMENT WALL THICKNESS/DENSITY 

SOIL DENSITY 

STORIES 

WINDOW PERCENTAGE 
SILL HEIGHT ABOVE FLOOR 
NO SHIELDING PERCENTAGE 
SCREEN PERCENTAGE 
SINGLE GLASS PERCENTAGE 
COMBINED SINGLE GLASS AND 
SCREEN PERCENTAGE 
DOUBLE GLASS PERCENTAGE 
SHIELDING FROM DOUBLE GLASS 
AND SCREEN PERCENTAGE 


sq miles 

ft 

ft 

ft 

ft 

kips 

ft 

lb/cu ft 
in. 

in.-lb/cu ft 
in. 

lb/cu ft 
in.-lb/cu ft 
lb/cu ft 


ft 


1.51 






Table 18 (Contd) 


Process Command 

Data Descriptor* 

Units 


DRAPERY BLIND AND SHADE 

PERCENTAGE 



DISTANCE FROM EXTERIOR WALL TO 
INTERIOR WALL 

ft 


INNER ROOM LENGTH 

ft 

CHARACTERISTICS OF WALL 
FRAGMENTATION 

NUMBER OF PARTICLES 

INSIDE PERCENT 

OUTSIDE PERCENT 

MASONRY FAILURE PRESSURE 

psi 


OVERPRESSURE AT FAILURE 

WALL TYPE 

psi 


ACCELERATION COEFFICIENT 

Ib/sq ft 

DESCRIPTION OF PERSONNEL 

POPULATION DENSITY 

INDOOR PERCENTAGE OF POPULATION 

people/sq mi 


INTERIOR POSITION PERCENTAGES 
STANDING_ SITTING_ LYING_ 



OUTDOOR POSITION PERCENTAGES 
STANDING_ SITTING_ LYING_ 


SKIP COMMANDS 

BLAST 

TRANSLATION 

DEBRIS 

THERMAL 

IONIZING 

BUILDING DESCRIPTION 

ACCUMULATION 


INTERMEDIATE RESULTS 

SOLVE 




★The descriptor NEXT indicates that the next command is a new process 
command. All commands and descriptors within them may be in any order and 
may be redefined any number of times prior to a SOLVE command. 
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Table 19 

SAMPLE PROBLEM TO ILLUSTRATE TYPICAL INPUT AND OUTPUT 

/ 

=tt- - , ■■■/■„, . 

WEAPON PARAMETERS 

YIELD 1.0 MEGATONS 

HEIGHT OF BURST 7000. FT 

GROUND ZERO COORDINATES X 0.0 Y 0.0 FT. 

NEXT 

weather AND topography 

VISIBILITY 10. MILES 
SEASON OF YEAR 2 (SUMMER) 

* 1 IS WINTER 
NEXT 

NODE AND BUILDING PARAMETERS 

AREA OF NODE 1.0 SQ- MILES 
NUMBER OF BUILDINGS AT NODE 2 
LOCATION OF NODE X=7000. Y=0-0 FT. 

CONSTRUCTION PERCENTAGE 60. AO. 

* NOTE that the TWO NUMBERS above are REPRESENTATIVE OF buildings 

* 1 And 2 RESPECTIVELY - THE SAME CONVENTION WILL HOLD BELOW 
HEIGHT 90. 60. FT. 

WIDTH 65. 100. FT. 

LENGTH 100. 65. FT. 

STORIES 17 15 

AVERAGE SPACE SOUTH 60. NORTH 60. EAST 60. WEST 60. 

DENSITY OF WALL MATERIAL(CONCRETE) 135. 135. LBS./FT.«»3 
WALL PANEL THICKNESS 8« 10. IN. 

ROOF THICKNESS 10. 8 . IN. ROOF DENSITV(CONCRETE) 135. 135. LB/CUFf 
FLOOR THICKNESS 10. 8. IN. 
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Table 19 (Contd) 


MAT£PiAL DENSITY Or FLOOR(CONCRETE) 135, 135. LB./CU. FT. 

RASEMENT WALL THICKNESS 10* 12. IN. BASEMENT DENSITY 135 . 135* LB. 

• /Cu. ft. <no need for continuation card a s numbers all fit card i> 

SOIL DENSITY 75. 75. LRS./CU.FT. 

STORIES 9 6 

• NOTE that the ABOVE command has the effect of overriding PREVIOUS 

• data above 

WINDOW PERCENTAGE 30. 20. 

SILL HEIGHT ABOVE FLOOR 2.5 3.0 Ft. 

NO SHIELDING PERCENTAGE 50. AO. 

SINGLE GLASS PERCENTAGE 50. 50. 

•NOTE WINDOWS Are EITHER OPEN or COVERED BY A SINGLE GLASS - OTHER 

• POSSIBLE CONDITIONS ARE IMPLICITLY DEFINED AS A ZERO PERCENTAGE 
DISTANCE FROM EXTERIOR WALL TO INTERIOR WALL 16* 14. FT. 

INNER ROOM LENGTH 20. 16. FT. 

NEXT 

CHARACTERISTICS OF WALL FRAGMENTATION 
NUMBER OF EXTERIOR WALL PARTICLES 1 
OUTSIDE PERCENT 100. / 100. 

NUMBER OF INSIDE WALL PARTICLES 9 

INSIDE PERCENT 0.0.70..0.0*0.0*0.0.0.0.0.0.0.0.30. / 0.0*100..0.0.0.0. 

% o*0*0.0.0.0.0.0.0.0 

• 

• THE ABOVE ILLUSTRATES A TYPICAL STATEMENT CONTINUATION USING $ 

WALL TYPE 1 1 

* WALL TVPE 1 IS MASONRY 0 IS PLASTER AND HAS NO CASUALTY EFFECT 







Table 19 (Contd) 


NEXT 

DESCRIPTION OF PERSONNEL 

POPULATION DENSITY IOOO. PEOPLE PER SO. MILE 
INDOOR PERCENTAGE OF POPULATION 50. 

INTERIOR POSITION PERCENTAGES STANDING 30. SITTING *0- LYING 30» 

outuoo r position percentages standing to. sitting 30. lying o.o 

NEXT 

* NOTE THAT ONE CAN SKIP ANY OF THE KILLIN G MECHANISMS WITH THE 

« following command SET 

« SKIP COMMANDS 
« BLAST 

* translation 

* DEBRIS 

» thermal 

* IONIZING 

» one can also skip THE BUILDING DESCRIPTION AND ACCUMULATING FEATURE 

* BY INCLUDING ALONG WITH THE ABOVE 

o BUILDING DESCRIPTION 

« ACCUMULATION 

o NEXT (THIS IS PUT AT COMPLETION OF SKIP COMMANDS) 

« 

» IF INTERMEDIATE OUTPUT IS DESIRED SPECIFY 

* INTERMEDIATE RESULTS 

a 

o THE FOLLOWING COMMAND INITIATES THE PROBLEM-BEFORE ITS ISSUE ANY 
e OF THE PRECEDING OATA MAY bF CHANGED. ALSO NOTE ALL CARDS MAY START 

* IN ANY ARBITRARY CARO COLUMN AND ARE FORMAT FREE 

« SOLVE 
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Table 20 

INITIALIZED STATE OF INPUT PARAMETERS 


Parameter 


YIELD 

HEIGHT OF BURST 

GROUND ZERO COORDINATES 

VISIBILITY 

SEASON OF YEAR 

AREA OF NODE 

NUMBER OF BUILDINGS AT NODE 

LOCATION OF NODE 

CONSTRUCTION PERCENTAGE 

HEIGHT 

WIDTH 

LENGTH 

WEIGHT 

AVERAGE SPACE S_N_E_W_ 
DENSITY OF WALL MATERIAL 
ROOF THICKNESS/ROOF DENSITY 
FLOOR THICKNESS 
MATERIAL DENSITY OF FLOOR 
BASEMENT WALL THICKNESS/DENSITY 
SOIL DENSITY 
STORIES 

WINDOW PERCENTAGE 
SILL HEIGHT ABOVE FLOOR 
NO SHIELDING PERCENTAGE 
SCREEN PERCENTAGE 
SINGLE GLASS PERCENTAGE 

COMBINED SINGLE GLASS AND 
SCREEN PERCENTAGE 

DOUBLE GLASS PERCENTAGE 

SHIELDING FROM DOUBLE GLASS AND 
SCREEN PERCENTAGE 


Quantity of 
Parameters Value 


1 

1.0 

1 

0.0 

2 

0.0, 0.0 

1 

10 

1 

2 (summer) 

1 

1.0 

1 

1 

2 

3600, 0.0 

10 

100, Rest 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

4 

All 1000 

10 

All 135 

10-10 

All 12, All 135 

10 

All 12 

10 

All 135 

10-10 

All 12, All 135 

10 

All 75 

10 

1.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 

10 

All 0.0 
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Table 20 (Contd) 




An alternative to this, however, is to state in a 
comment statement implicitly defined values. The command SOLVE 
terminates the input phase of the processor and transfers con¬ 
trol to the computational section. When the specified problem 
is solved and the answer printed, control is automatically re¬ 
turned to the input phase. Each of the data descriptors will 
now.be discussed in detail. 

The process command WEAPON PARAMETER has three data de¬ 
scriptors: YIELD, HEIGHT OF BURST, and GROUND ZERO COORDINATES. 
The YIELD is the weapon size in megatons. The HEIGHT OF BURST 
is Specified in feet as are the GROUND ZERO COORDINATES. These 
coordinates are laid out on some two-dimensional map of the area 
under consideration and are utilized to find distances from 
ground zero to node points under study. The command NEXT sign- 
nifj.es completion of specification of all data descriptors 
concerned with a process command. It is the means by which one 
gets from one process command set to another. 

The WEATHER AND TOPOGRAPHY process command specifies the 
VISIBILITY in miles and the SEASON OF YEAR (i.e., 1 for winter 
or 2 for summer). These parameters are used to compute the ther¬ 
mal radiation effects. The NODE AND BUILDING PARAMETERS process 
command contains a great deal of data descriptors. A node is a 
finite area of the total area under consideration. It may be 
considered to represent one room within a building or a several 
milte square area in which many types of buildings exist. AREA 
OF NODE, in square miles, represents the associated area. NUMBER 
OF' BUILDINGS AT NODE specifies the number of different types of 
representative buildings within the node under consideration. 

A maximum of 10 per node is allowed at present. CONSTRUCTION 
iRCENTAGE serves to break down the above types into the percent¬ 
age represented by each of the total. LOCATION OF NODE is a set 
of coordinates which, together with the ground zero coordinates, 
is utilized to find the distance and orientation from ground 
zero to the node. These coordinates are specified in feet. 
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HEIGHT specifies the building height of each building type con¬ 
sidered. Likewise WIDTH, LENGTH AND WEIGHT specify each build¬ 
ing's width, length and weight. The next data descriptor speci¬ 
fies the AVERAGE SPACE SOUTH_NORTH_EAST_WEST_ 

between contiginous buildings in a single node. It perhaps is 
necessary here to explain that all buildings within a node are 
presumed to lie on a north-south-east-west orientation, however, 
the" node itself lies on some less general orientation with respect 
to ground zero. This orientation is determined by the node co¬ 
ordinates with respect to ground zero. Ordinarily building width 
is on a north-south orientation while length is east-west. 

The next set of commands describe the roof, wall, base¬ 
ment and surrounding soil characteristics. These include for 
each building type, WALL PANEL THICKNESS, DENSITY OF WALL MATERIAL, 
ROOF THICKNESS-ROOF DENSITY (same card), FLOOR THICKNESS, MATERIAL 
DENSITY OF FLOOR, BASEMENT WALL THICKNESS-BASEMENT WALL DENSITY 
(same card) and SOIL DENSITY. All thicknesses are in inches and 
densities in pounds per cubic foot. The data descriptor STORIES 
indicates the number of floors in each building type. At present 
thete is a limit of 100 floors imposed on any one building type. 
The' command WINDOW PERCENTAGE describes the percent of apertures 
in teach building type, while the next set of command breaks this 
aperture percentage down by different types of shielding pro¬ 
vided, This set of data descriptors include NO SHIELDING PER¬ 
CENTAGE, SCREEN PERCENTAGE, SINGLE GLASS PERCENTAGE, COMBINED 
SINGLE GLASS AND SCREEN PERCENTAGE, DOUBLE GLASS PERCENTAGE, 
SHIELDING FROM DOUBLE GLASS AND SCREEN PERCENTAGE and DRAPERY 
BLIND AND SHADE PERCENTAGE. The final two data descriptors deal 
with the room lengths of typical exterior and interior rooms of 
each building type. They are DISTANCE FROM EXTERIOR WALL TO 
INTERIOR WALL and INNER ROOM LENGTH and are expressed in foot 
units. 

The next process command CHARACTERISTICS OF WALL FRAG¬ 
MENTATION indicates the overpressure associated with failure of 
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both exterior and interior walls. Exterior wall failure pressure 
Is 1 «rHrated for each building type by the data descriptor OVER.- 
PRESSURE AT FAILURE f In a similar manner MASONRY FAILURE PRESSURE 
indicates inter lot: wall failure pressure levels. The particle 
size description resulting from panel fragmentation is -inputed 
separately for outside and inside walls. In either case the data 
descriptor NUMBER OF PARTICLE SIZES gives the number of particle 
sizes under consideration for each wall type. If a certain size 
particle is to be considered, the number of particle sizes must 
include all smaller sizes up to this size but not larger. There 
are nine possible sizes of equivalent spherical particles. These 
include 1, 2, 3, 4, 5, 6, 8, 10 and 12 in. radius particles. 

The commands OUTSIDE PERCENT and INSIDE PERCENT indicate the per¬ 
centage of each size category, for exterior and interior walls 
respectively. There should be as many percentages listed for 
each building type as there are number of particles specified. 

The number of particles specified may be changed prior to 
specifying either inside or outside size distributions. If the 
user wishes to describe a projectile which is not represented 
by an equivalent sphere, he has the option of specifying the 
particle's acceleration coefficient. The data descriptor 
ACCELERATION COEFFICIENT describes the shape and orientation in 
flight of an individual debris projectile and is equal to 2x 
maAs/projected area in units of pounds per square foot. This 
parameter should be used in conjunction with one of the above 
radii in order to specify the approximate weight of the project¬ 
ile. Only one particle acceleration coefficient per building 
type is allowed and this parameter must be inputed explicitly 
for every subsequent case run. Each building is classified as 
having either masonry or nonmasonry interior wall panels by the 
dat;a descriptor WALL TYPE. An entry of 0 indicates nonmasonry 
wafl panels while an entry of 1 indicates masonry panels. Non¬ 
masonry walls have no effect on interior personnel. 

The process descriptor DESCRIPTION OF PERSONNEL identifies 
the number and deposition of personnel at the node. 
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POPULATION DENSITY is specified in units of people per square 
mile while INDOOR PERCENTAGE OF POPULATION specifies the per¬ 
centage of people inside the previously defined structures. The 
personnel is broken down into the percent standing sitting and 
lying both inside and outside by the commands INTERIOR POSITION 
PERCENTAGES STANDING-SITTING-LYING, and OUTDOOR POSITION PER¬ 
CENTAGES STANDING-SITTING-LYING. 

The next process descriptor, SKIP COMMANDS, allows the 
analyst to skip some of the kill mechanisms and only use those 
he actually wishes to utilize. These commands skip around the 
parts of the program associated with blast, translation, debris, 
thermal radiation, ionizing radiation, d_scription of post at¬ 
tack building condition and accumulation of casualty information. 
The data descriptors are respectively BLAbf, TRANSLATION, DEBRIS, 
THERMAL, IONIZING, BUILDING and ACCUMULATION. These parameters, 
if,used, must be specified for each node of a run of several 
nodes. 

The user has a great deal of flexibility in analyzing many 
special cases because of the many commands available in the lan¬ 
guage. For instance, the user may wish to study the case of 
population in an unshielded area. He might do this by speci¬ 
fying the distance between contiginous buildings to be extremely 
large (e.g., 1000ft). If he is only interested in the effect of 
ioiiizing radiation he might set all the SKIP COMMANDS on except 
IONIZING. If it is desirable to study what is going on WITHIN 
one room of a structure, this may be simulated by a one story 
structure whose exterior walls do not fail. The interior wall 
properties of the structure correspond to the actual walls of 
the room. The exterior room length of the structure is set to 
zero. With this type of configuration, even one room within 
a building may be studied in detail. 

Table 21 illustrates the output of the program and is 
self-explanatory. In the final analysis it is felt that the 
language is both flexible and readily usable by a noncomputer 
user * IIT RESEARCH INSTITUTE 
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Table 21 (Contd) 




survival fpo m *u tFFf.crs iFha<tion ."t total) 
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TOTAL;, FO*. IMIS N't!PL |>*fOFLi > 

NUHIiFp UN|Hj "«ril 0* 

NUMfcFK of fatal ItJ fO 1000. 
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APPENDIX II 


SEP CODE REFERENCE MANUAL 

' SEP code is a system designed to be run on the IBM 7094 
IBSYS MONITOR SYSTEM. Furthermore, due to storage limitations 
it’has been set in a overlay structure. All routines have 
be6n coded in FORTRAN IV with the exception of one FUNCTION 
SUBROUTINE MATCH. MATCH is written in MAP assembly code and 
is * fully described in another publication (Ref. 41 ). All flow 
diagrams and program listings of SEP code, with the exception 
of MATCH, are included in Appendices III and IV respectfully. 
Figure 63 illustrates the general flow of the total system and 
Figure 64 indicates the overlay structure of SEP code. To 
facilitate card handling the system resides on an IEDIT tape, 
and only a small loder deck and the data are necessary to run 
the system. A diagram of the deck setup is illustrated in 
Figure 65. The IEDIT tape resides on physical unit B5 and an 
extra overlay tape unit A5, is also necessary for maximum 
execution efficiency. Table 22 illustrates the starter deck. 

Running time is approximately 0.5 min per node point, 
however, this may fluctuate slightly depending on the structural 
complexity of the node point. 
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MAINLINE PROGRAM 
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LINK 0 


MAIN PROGRAM 
BLOCK DATA / 
SUBROUTINE CBINE 
SUBROUTINE BILDS 


BLOCK DATA 2 

SUBROUTINE INPUT LINK 1 (Bl) 

SUBROUTINE EFFECT 

SUBROUTINE WEAPON 

SUBROUTINE FIND 

SUBROUTINE DELAY 

SUBROUTINE FINDAT 

SUBROUTINE FINDT0 

SUBROUTINE FIREFR 

SUBROUTINE P0N0DE 

SUBROUTINE RADION 

SUBROUTINE BLAST 

SUBROUTINE BLASTH 

SUBROUTINE BLASTD 

SUBROUTINE BLASTM 

SUBROUTINE BLSDIS 

SUBROUTINE DISPLA 

SUBROUTINE PFT 

SUBROUTINE PBT 

SUBROUTINE CHTIME 

SUBROUTINE BTRANS 

SUBROUTINE PC0NI 

SUBROUTINE DEBRIS 

SUBROUTINE TRAMAT 

SUBROUTINE BDEBRE 

SUBROUTINE BTRANI 

SUBROUTINE TRAJ 

SUBROUTINE THERM 

SUBROUTINE PERCTH 

SUBROUTINE FIRINJ 

SUBROUTINE MATCH 


SUBROUTINE NUCLAC 
SUBROUTINE AFFECT 
SUBROUTINE ATTENU 
SUBROUTINE RADINJ 


LINK 2 (A5) 


Fig. 64 SEP CODE OVERLAY STRUCTURE 
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Table 22 STARTER DECK 


S JOB CASUALTY 

SIBSYS 

SATTACH 

SAS 

SATTACH 

SAS 

SEXECUTE 
S i B JOS 
SI EDI T 

sibldr MAIND 
SIBLDR DAT 
SIBLDR C8INE 
SIBLDR BIlDS 
SIBLDR UN09 
SOP 161N 
SIBLDR DAT 1 
SIBLDR INPT 
SIBLDR EFFEC 
SIBLDR HEAP 
SIBLDR DINT 
SIBLDR DECA 
SIBLDR FINOT 
SIBLDR FINDP 
SIBLDR F1REF 
SIBLDR PONOD 
SIBLDR POBRE 
SIBLDR THERML 
SIBLDR RADI 
SIBLDR GEOH 
SIBLDR BLAS 
SIBLDR H 
SIBLDR D 
SIBLDR M 
SIBLDR BLSDS 
SIBLDR DISPL 
SIBLDR PF 
SIBLDR PB 
SIBLDR CHTIM 
SIBLDR BT 
SIBLDR PCON 
SIBLDR DEBR 
SIBLDR TRAMA 
SIBLDR 80 
SIBLDR BTRI 
SIBLDR TRAJE 
SIBLDR THER 
SIBLDR PE«C 
SIBLDR FIrIN 
SIBLDR MATCH 
SORIGIN 
SIBLDR NUCL 
SIBLDR AFFE 
SIBLDR ATTEN 
SIBLDR RADIJ 

siedit 

SDATA 


A5 

SVSLBA 

65 

SYSCK1 
IB JOB 

G e,MAP-SOURCE.FTOCS 
SVSCKl.SCHf 


ALPHA.5YSUT2iREW 


AtPHA.SYSLB4.REW 
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APPENDIX III 
FLOWCHART OF CASUALTY 


PROGRAM 
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APPENDIX IV 
PROGRAM LISTINGS 
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SIBFTC MAI NO M9<»,X&7 

COMMON/BlK|/TS»PREE«PETS»PD»TO«CnF ♦0O,WOU»TB,PBTP*mp 
COMMON/RLK?/ 67 x«G2Y♦XN,V N , S Si$N»SW♦SE♦SI»S 2,PHI 
COMMO\/8Ut3/ W,HB4\/tS.xo ? fro.AiijnFM. t$rAcij ; irftn*y 

COMMON/BLKA/ AVpHt, AVfWT, AV^Wt AVEL «HMAX A3«A4, A 5 * D1 ,D2»03»P4 

i'?!!:wh W?,Wa,W44W5 * l<A * AT0T ’ D1SMA) '’ DEl *Tn.FACTl,PACT2*!Nnx(5) 4 AAA < «=i) 
24lNDXl,IMnX2,PrRPJN, POPDN«REACSi«HEAC$T,REACLY 
COMMON/RIKS/ TA,CU»PWV»PDYP«PREF 
COMMON/flLX*/ po, TQ,RI,POnA 

COMMON/BLK”/ NN,PEPCWi(10)•POP ILD<10)*BUILDW(10)»BILPLT(10).CONPER 
1(10)♦RTLOWt(10)*P0SPR0<3>tPOSPRI(3)*NFL(10)♦AIMTRL(10)«EXRL(10)» 
2PBRF.AX (10) , IWAI. L T (10) , ! BT (10) » PERCOA«B1 LDHT (10) 

COMKON/RLKA/ P»ERTB(10«9)»PpERTI(10.9)♦BRXMA5 

COMMON/HI. X 9/ OMR»DDYB»DWX B»DHTO* DOYTO«DWX TO, nMTHTO«DHTI, PDYT I, PwX T 
11 iPmTht;< OHn.DY’yn,OWKO«DMTn, DH,DD«DW.DM 
COMMON /RLKlf)/ NHTLl «HX ()0) ,Hr (10) 'HJHHT < 10) «H!U.M 1 0) «HJLLW (10) 
COMMON /BLX11/ WALPAN(IO)♦WALDEN(10)«FL0RTH()O)tFLORPNt10)«ROOFTH( 
110)iRQOFnN(10)«BASETM(10)»BASEDN(10)»S01LDN(10 )iSILHT(IO)♦PERSCR( 1 
20) .PFRSG(lO) *PPRGG(10) .PFROBS( 10) «PERG< 10) ,PfRPE 110) .PERGGS(lO) 
COMMON /RLK 1 ?/ nOYTHI,DWXTHl,DMTTH!♦DnYTHO,DwXTHO,OMTTHO 
COMMON/BLK 1 3/ A V EwTR,RADG4RAnN,DHBO.ODBO,IJMBO»DHBNDDBI ,PMBI* 
irtnoNi ,nwmNi ,n M ioNi ♦nnioNO,DwioNo t DMioNn 

COMMON/HLK14/TTI«T10,011,PlO«FII,F10*RII,R10 * TUN INJ,TFATAL♦TAINJR 
COMMON/BLXVl ISTl(6) *LIST2(9) .LIST3(31) »LIST5<9> .L!ST6(7) ,LIST7(o) 
1.1 SKIP(A),LISTR(9)»ABrTA,lAc 


START MEW RrHBLFM 


'*00 WRITE (A«1 0n) 

100 FORMA7(1^1j 
C 

C SET KPPINTSO UNLESS THIS IS CHANGED NO CONDITIONAL OUTPUT TAXES 

C PLACE 
r 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


XPRINTrO 

READ IN PROBLEM DATA 
CALL INPIIT(KPRINT) 

CALCULATE AyFRAfiE GEOMETRIC QUANTITIES AND SPECIAL NODE AREAS 
CALL GfOMET(XPBlNT) 

CALCULATE *LL r REE FIELD WEAPON EFFECTS 
CALL EFFECT(XP&INT) 

PRINT ALL WEApn N EFFECTS INFORMATION 
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xO.PO.TO.TA 

FORMAT (AriHlniSTANC F FRO M G B OUND ZERO T 0 NODE POINT' 
1AH FT./4lHOFRE e FIELD OvFRPRESSURE AT NODE POINT T‘ 
241H0POSITIVF P N ASF DURATION AT NODE POINT IS»F&.3*’ 
3AL TTM P Af NOL' r ~*' T N T 'i5»FS.3»4r 
WRITF(A.RO) T Q „ ^ „ ,„ u 

90 FORMAT ( 30MOTHE p MAl. c nfrGy AT NODF POINT*,F10 # 2 «1 - w 


3H IS,F10.0» 
F 7 * 2« 4H PSI/ 

' 5EC/30H0ARRIV 


:iL/C M <»o2> 


WRlT r (A«01> P I 

9^ F0RMAT(3AH0iONIZl l ' , G RADIATION IN(RAD) UNI TSs «F 1 0.2 • 5 W RAPS! 

WRITFtA.IlM P^NA . u 

114 FORMAT I 3 r>HnA r T p fg', | Arrn MODE 0VERPRESSllRE s «F4« 1 »a p 5I 
U7 wR T TF 14. 1 1A J (*>ORTLD M ) « I«1 = 1 «NN) 

11 A FORMAT (\nrj,F*».! ,2SH PS! Wl’HlN BUILDING TYPE«!3) 

toRTTF(4,4Q'OU,PWV«° r lYP,PREF _ _ _ _ _ 

fl 9 FORMAT ( 1 4 H (T 5 u 0 r X YFLOCITYs,F10,2,4H F»s/20HOPEA< W \ ErrFc l!?,’/! 
10.2,AH F®S/?3 HOpFAK DYNAMIC PRESSURE =»F10,2.AH PS!HOPTFlECTEU P 

2RE.SSHRFs»FT0.2»AM »?! ) 


CAL CIlL A T r r AF-’J A'uT t c " due TO BLAST ALONE 
IFnSKTPfP.FO.O* CALL BLAST(KPRINT) 


CALCULATE CASUALTTFS DllE TO BL*ST TRANSLATION 
IT (I5KTf > <2> . FQ» 01 CALL Bt SDl S ( *P R I NT) 


C 

c 

c 

c 

c 

c 

c 

c 

c 


CALCULATE CASUALTIES due to RlAST DEBRIS 
JF(ISK T P < 3>.FQ.CJ CALL DFBR1 5 < KPRI NT) 

calchlatf casualties DUE to thfrmal radiation 
IF(ISKIP f4>.FQ,0> CALL THERMIKPRINT) 

CALCULATF ^ASUALTJFS DUE TO IONIZING RADI A*I^N 


IF (ISK TP (51 .FQ.O) CALL NUCLAR UPRl NT 1 

print summary *F individual <ILL mechanisms 

WRITE (4,3001 DMBNPPBT.DmRI ,OHAO.DnBO»DMPO,DHT! , DDYTf .TIWKTI .OMTHTI 

l WRTTE(4,30n nHTO.DDYTO^'^TO,PMTHTO,TlO,DH,Dn,DW,DM,PII,DHD,ODYn, 
1 nwxn.nMTD.Diri,Pn v THT «PWKTm* ,DMTTHI ,FI I 
!!!tEIa!to?) n’'YTHO*0wKTi.c*0MTTM0.FIO,DDT0MI,nw!0MI,nMI0NI,R!X, 

MATRIX FOR fatalities and injuries (F 

aS2cri5i OF ^"?Jl>,///!- ♦ EFFECT,21X,5RH* DEAD HOUR * 

3 DEAD PAY * n E AO WFF< * *** *'D MONTH ♦ I N ^ R | D . *'* /] J * ,l l 5 t 

4 INDOO D PL A ST, 15 X«<»H* * ,F5»2,4H ,1„X ♦ 5. 
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5 f 4X,lH*,<>X,lH*,/2H ♦,2AX,lH+,liX'lH*,10X'lH*,liX'lH<»,12XtlH*«9X,lH 
6*»/lf.H ♦ O'lTnOOR BLAST, 14X»4H+ ,F5,2,6H ♦ ,F5,2,4H *,11X,4H 

?♦ ,FS.?,4x,lH+,9X,lH«-,/2H ♦ ,2flX,lH«-,llX, 1H«-,10X,1H*,11X,1H*,12X« 

A1H+.9X, IN0OOR TRANSLATION,9X,4H+ ,F5,2,fH ♦ ,2<FS. 

92♦ TH ^ ) ,F«5.2,<*V,3H«. ,FS.2,3H ♦ > 

*20UTD00R*TRANSLATION,8X*9H* ’*,Fsi2,6H *'♦’ i2<FS^2,7H*’** '"uFslz 
3*4X,3H«- .*5.20H *,/2H ♦ ,2»X , 1H*, 11 X, 1H*, 1 OX . 1H*, 11X , 1H +, 12X , lH* 

4»9X,1H* «/1 AH ♦ INHOOR DEBftIS «14X,4H* »F5,2,6H ♦ *2(r5,2,7H 

5^ > ,Fb,2i4X,3H + ,F*>.2.3H **/2H ♦, 2$X , 1H*, 11 X , 1H*, 10X , 1H* , 11X, 1 

6H*,l2X,lH-*-,9X,lH*»/17H ♦ OUTDOOR DEBRIS *13X, 4H* ,F5.2»fH ♦ ,2 

7<F«>.2,TH «■ i ,F5.?,4X»3 w * *F5#2,3H ♦ , /2H ♦, ?8X ♦ 1H*, 1IX, 1H* , 10 

fiX*lH*,llX*lH*,72X,lH*,9X,IH*,/3lH ♦ INflOOR THERMAL RADIA T I ON *-,1 
91X.3H* ,2(FS.?,7H ♦ ) ,FS.2,4X,3H* «FS,2,3H ♦ ) 

302 FORMAT(?H ♦,28X,1H+,1IX,1H*,10X,1H«-,1 lx,1H+,J2X,,1H+,/31H * 
2n(JTDnoP Thermal RADIATION +,llX«3H+ ,?<FS,2,7H ♦ >,FS.2,4X,3 

3H* , FS»2 » 3h ♦,/2H ♦ , 28X , lH*, 1IX , 1H+ * 10X , 1H*-, 11X , 1H* , 12X , 1H*, 9X, 1 

4H*«/3lH ♦ TNnOCR IONIZING RADIATION ♦,11X,3H* ,2(F5.2,7H ♦ ) 

5,F5,2,4X»3H> « F?. 2,3H *,/2H ♦, 26X » 1H+ , 1J, X, IH+, I OX , 1H*, 11X, lH*, 12 

6X,1H+,«»X,1H*,/31H + OUTDOOR IONIZING RADIATION *,11X,3H«- ,2<F5.2, 

77H ♦ ) ,FS.2,4X,3H-* ,FS.2,3H ♦♦/IH 'dSHH+M 

c describe post a t tacx condition of structures at node 
c 

!F<ISKTPI6>.FQ.0> call BIL< IS 

r. 

C COMBTNF FFFFCTS AND PRINT RESULTS 

C 

CALL C0MRNF 
C 

C PROBLEM IS FTNTSHFD EITHFR CHANGF PARAMETERS OF GO ON TO NEXT NODE 
C 

GO TO 400 

FND 
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SjPFTC DAT 

BLOCK n AT A 

COMmon/*i<?/ G?X,07'.XN,TN,S5,SN,SW,SE,S1,S2,PMT 
COMMON/«L<3/ vJ,M p . V S. XO.FFRiATRnEN, T SR A SN, TODAY 

COMMON/F' K 4/ AVFUT. ■'r«T. AVFW, AvFL.HMA.Xt Ai ,A?,A3. A4,AS,91,02,D3»04 

l,0S*irl,*P,W3,*4,4«A?0Ti0lSMAXi9ELTD,FACn ,FACT2*t»:0X f5J «AAA(5> 
2 » IND* 1 . jNBX2,® r PP »,•*, pqPDN ,RE ACS I * REACST, fif ACL Y 

C0-4vnr N /HL<7/ vjv.pt-cr,-- , jo) ipOBUOdOJ ,0*JILnw (10) •3!L*'L7 (10) •CONPfR 
l(lC)*tm n W*<1C)«' s 0S r ’RC!'3),P0SPRr<3> »NFL (1Q>#AIMTPL(1?)«6XPLC10>» 
2P8«t Ak f I'M * i w A t l t (IP) , !BT ( 10 ) «PERC0A,8ll_nHT (10) 

COMMON/Rl k a/ ff»Ft>~B*10,9),®PER T I<lO,9),RRKMA$ 

COMMON /pl 1 ')''/ NH’LL* w XMO).HVUOdH!LLHT(lO),HItLL HP) «H!LUW(10) 
COMMA* /0 .| v ; y f w al®an< 10) « WALDEN«10 > ,FlORTM( 10) ,FLO B "‘'' IP) ,ROQFTH< 
110» ,ROnFPM( I'M ,&ASF TH(10) » H A5FDN( 10) « SOT LDM(10) »5 11 Hv *10) ,PERSCR(1 
20) * F F P G A ( TO) ,PF R->p,$< 10) » p EPG(10) ,PFRnE(10) , FERG&S (10) 

COMMON/Rite' 4 m t , "M o,{)T t, n 10« p 11 ,KJ0,RI T »RI0«TUNI NJ , t FATAL,TAiNJR 
COmmon/p.!. <o/i. ;GT1 (ft) « L * S*2 f 9) ,LIST 3 01) »L!ST5 f 9) • LIS T 6(7) ,LIST7{a) 
1 , ISK IP (ft) : STA (9) , A3F-A, I Ac. 

DATA (USTl'M.ItsJ.ft) /» , ftHC v \ l L D , ftHF I SS10 , ftHHF J GM T « ft MGRO! 'NO , feHOONE 
1 X T / 

RATA (l !«T?(').!sU#j /0,<, u 000AIRifeHvlSlDI *fcHNllMBERiFH00HILL«6HHf I 

lC.HT.AHSf A?PN.6 w OGTT u F.f,wo-VFXT/ 

DATA (LT SV?{ U ♦ 1 = 1.3’.' /'3C.G- , '4 , hpe; 9,6HL0CATI ,6HP(.tlUDI ,ftHCONSTR, 6HWE I 

1 C.H T ,ftHHf, o,mt «b w L F\if)T J T M7 H , ftHAVERAS , 6H00NEXT « 

2 «>HOOAREA,6HOCWALL»6HOE 
3N51T,ftMO r L DOF »ftHMA * r 9 I , V'Q OrOOF , 6HB AsEMF , 6H00 SO 1L * 6HST0R1E % 6Hw INDO 
4W,ftHOOS1U. .F,HSCRFF‘- .bH.SdG L E»6HD0UPlF»6HnRAPFR,(,h:r)l ST AN * ft HO1 MNRR , 
5ftH0000M0* 6HC0MR T N,ftHSM!El 0^ 

DATA d 1STG(T) , !*1,<M / A , ftH" vFRPR , fcHNtJM0E R , (SHOUTS I D , ftHOOW Al L ,ftHM A SO 
lNR»ftMlMSt HF»AHO0^EXT,6HACCtLE/ 

OATA (i ISTA(T) *t = 1 • T) /6*AHPoPlJLA*6HINn30R*AHTHTER!*6H0UTn00»6HREAC 
1 T1 ,6H0nNFXV 

DATA a !ST■» (!) « 1 = 1 , 9 ) /8«*HWEAP0Nf 6HWf!ATHE*6H00N0nE*6HCHAPACi6HDESC 
1RI ,6HOSOlVF,ftH!NTFR M ,ftHOOSKlP/,(LIST* (p ,1*1,9) /«,6H0BLAST,6HTRANS 
2L,hHnE«P! S,6HTW|iRMA«6HI0f!l7l •6HBUIL0! »f>H00NEXT,ftHACCl.iMl.1/ 
nATA w, ATpn F sj. vi S, TSEASM,TO[)AY ,NN,XN, TRT,CONPFR,SS, SN*5£,SW,WALPAN 
1,FLOPTH.POOFTH,RASFTH,WALDEN,FIORUN,ROOFDN,0ASEDN,SO!LDN,NFL,PERPl 
2N,P0SPPt. POS«»R'', , ^.f'ZX,G^Y,HX,HY*HILLHT•HULL,H!UW«VN,H|JILOW,BILD 
3HT,8TLn L T,RlLDWI,PFOC0A,PEPCWI,S!LHT,PERDE,PERSCR,PERG,PERSG,PERGG 
4,PFRGGS. p F D D0S,FXRL,AlMTPL,PPREAtC,PPERTP,PPERTT ,RRKMAS,POPDN,REACS 
5T,RC'ACST,RFACL y ,NHTLL»IWALLT/1.0,0.075,10.,2,1.0,l,3f.OO., 1,9»0,100 
ft., 9o,1, n, 4*1000,, 40^12.0,40^135,, 10»7S., 10»1, 100, , 0,0, 100,, 0,0, 100, 
7,0,0,0.0.400»0.0,n«0/»ApFTA,POPnN,PFRCOA,TUNlNJ,TFATAL,TAINJR/ 
80*0,2*1.0,3*0.0 







MBFTC CBINE 

SURKCuTtME 

CnM M 0N/BU4/ AyEHT,A V FWT.AvEW.A V El,HMAx,Al,A2,A3,A4,AS,731,D2,D3,n4 

COMMON/rAUV N»',PFRf W T<10> •POBIlD( 10I ,BUIL?i|rf (10)*BIinLT(10),CONPFR 
1 ? WT 1 l0 ' ’ p ^SPOon) ♦POSPRI (3) »NFU10) .AINTRLUOJ .fXRLUO) . 
<ir») MWALLT(in) .I0T(iO>«PEBCOA,RlLDHT(lO) 

COMMON /PL K<?/ D^B,POYB,DviKR.DHTO»nDYTO»DWXTO,nMTWTO,DHTI,rPYTT.DkKT 
i!»nMTHYT#nHD,un Y n,DwKn t OMrn, dh» dd,dw,dm kt 

COMMON /RLfl?/ FlDYTHI ,0 wkT m I ♦DMTTHI »DnyTHO»OWlCT!iO*DMTTHO 
COMMON/RLK 13/ AvKWT*»*RADr.«RADN*DHB0*DDB0tDMB0.nH8!.DnB!.PMBN 
1 no I ONI «nWiriNT « PM I ON I »nDlOKO«DWIONO, DMIONO 

S«MnD! / « 1 U n 4/TTl , ,TI0 ’ DTI,r)l0 ’ ni,fri0,RII,R!C, » T " W ^- J « TfrAT AL»TAlNjR 

COMMON/BLKH/L I e Tl (6) ,LIST2 <9> «LIST3(31),11875(9) V IIST6(7)«L!ST7<9) 

1 , I SK ?P (fe) ,|. I STB (9) , AflfTA , I Ac 
OIMENSTON SURV(10,5) 

FIN=PEPP!N/100. 

FOUTai, o-PTn 

SURm,l)sFl*'-nHBl 

suRva,?)s?uov<i»i)-nnBi 

SUP V(1,3)sSurv < 1,?) 


SUR V < 1, 4 )=SURV < 1.3) -DMBI 
SUR V < 1,5) =sun V ( 1,4) 

SUP V < 2.1)sFoUT-nHBo 
SURV(2,?)sSU0V(2. l)-nnRO 
SURV(2,3)=SURVf2,2) 

SUP V (? .4) sSl)RV ( ?, 3) -DMBQ 
SURV(2,5) aSllRV < 2 ,4) 
SURV(3»n=FlN-PHTI 
5URV(3«2»=SUBv(3«l)-nOYTl 
SURV(3.3)=SL)DV(3»2)-DWI(T! 
SURV(3,4)=SURV(3,3)-OMTHTI 
SUR V (3,5) =SURVf 3»4)-Tn 
SURv (4,1) sFoUT-DMTO 
SURV(4,?)sSupy(4,1)-ODYTO 
SURv(4,3)sSURV(4,2>-DWKT0 
SURV(4,4)sSURV(4,3)-OMTHTO 
SURV (4,B) sSl)RV(4.4) -TTO 
SURV(5,l)sFIN-nH 
S'JRV (5,2) sSURV (5* l)-DO 
SURV<5*3)=SIJRV(5«2)-DW 
SURV(5*4)sSURV f5«3 )-Dm 
SURV (5,5) =S|)P V (5.4) -Dl I 
SURV(6,1)sFOUT-nun 
SURV(6,2 )sSurv( 6,1)"OnYO 
SURV (6,3) sSijRV (6,2) -DNKO 
SURV(6,4)“SURV(6,35-DmTD 
SURV(6,5)=SU0V(6,4)-DIO 
SURV (7,1)rFiN 
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SURV (7,2» =FlM-r?)Y T MI 

SURV(7,3)=$URV(7,2)-DwKTH! 

SURV ( 7,4) S55UPV (7,3) -DmTTHI 

SURV (7,5)=SUPV (7,4)-Fji 

SURV(fl,l)=F0UT 

SURV (6,2) sFO'JT-D^YTMQ 

SURV(8,3)= 5lJRV(8,2)-UWKTHO 

SURV (8.4) sS'JPV '8* 3) -'JMTYHO 

SURV (6,5) sSU^V (8,4)-FTO 

SURV(9,15=Ftn 

SURV (9,25 =FTN-"OION! 

SURV(9,3)sSU»V f9«?)-HwiONI 

SURV(9.45 =SURV <9,3)-DMIONI 

SURV (9,55 = f UjRV (9,4) -o t 7 

SURV(in, ') =FOU T 

SURV(10.?)5FOU t -DD!ONO 

sur v: l o . 3 > =s* ir v a n, ? > -ow t.ono 

surv (m,4) =surv (:r, ?5 -dmtono 

SURV(10.*)=S"RV(10,4?-RIO 

WRTTF(4,40^5 ((SURV(I,J5,J=1,5),1=1,3) 

WRITE" (a. 401: ( (SURV (!,.;? . J = 1,5) , 1 = 4,7) 

WRTTF < 5,4o?) ('5URV fI«j}.j = 1,5),T=0,10) 

400 FORMATr///^9W *k?TVT1UAL FFFFC t MATRIX for SURVIVAL (FRACTION OF 
2T0TAL) *'»4(lh*> ,/Rw * FFFFCT,21 X,65H* SURV, HOUR ♦ SURV, DAY 

3 ♦ SURV. WFFX * SUPV, MONTH * UNINJURED ♦♦/lH ,94{1H+),/15H ♦ INPO 
40R BLAST,15X,1H*,4X,F5.2,4H *,4X,F5.2,3H 4,4X,F5.?,4H 4,4X,F5 

5,2,4x, 4H^ ,F*.2,4H -,/?H ♦,2AX,lH-*-,l?X,lH+,llX,lH*,l?X,lH^,l3X 

6,lH>.llX,lH+,/l6H ♦ 0UTDO0 0 PL AST,14X♦1H+,4X,F6.2,4H **4X,F5.2,3 
7H ♦,4X,F5.2,4M ♦ ,4x,F*, <% 4X,4H* ,F5.2,4H *,/2H ♦*?6X,lH*,l? 

eX,lH^,?I<,lH*,]?X,lM>,i3X,lH*,llX,IH4./2IH ♦ INPOOR TRANSLAT I ON,9X 
9,1H4,4X,F5.2,4H 4,4 x,F5.^,3H 4,4X,F5,2,4H ♦,4X,F5.2,4X,4H4 

1,Fs,2,4H 4,/?H 4,28X,1H4,12X,1H4,11X,1H4,12X,1H4,13X,1H4,11X,1H* 
2 5 

40! FORMAT ( ??H 4 0"T000R TR AMS'- AT ION, 8 X , 1H*, 4X ,F5. ?, 4H *,4X,F5.2,3H 

2 4,4X,F5.2,4H 4,4X,F5.^,AX,4H4 ,F5,2,4H + ,/2H ♦ , 2§X,1H*,12X, 

31H+,11X,IH4,12X,1M4,13X,1H4,11X,JH4,/16H ♦ INDOOR HERR I S,14X,1H*,4 
4X,F5,2,4M 4,4X,F5.2,3H 4,4X,F5.2,4H 4,4X,F5.2,4y,4H* ,F5.2, 

54H 4,/2H ♦,2*X,1H4,12X,1H4,UX,1H4,12X,1H4,I3X,1H4,11X,1H4,/1?H 

64 OUTDOOR 0E«RTS,13X,1H4,4X,F5.2,4H 4,4x,F«.?,?H 4.4x,F5.2,4H 

7 4,4X,F5,2,4X,4 H 4 ,F5.?,4h 4,/2h 4,?8X , lH4,12* ,’ H4 . 11X , 1H4,12X 

8,lH4,nx»lH4,l!x,lH4,/3lH 4 INDOOR THFrmal RADIATION *,4X,F5.2,4 
9H 4.4X,FF.2,3H 4,4X,FS,<:,4H ♦ , 4X , F5,2,4X , 4H4 ,F5.if,4H 4) 

40? FOPMAT(?H 4,?eX,lH4,l?x,lH4,llX,lH4,12X,lH4,13X,3H4,UX,lH4,/3lH 4 
2 OUTDOOR THFRMAL RADIATION 4,4X,F5.?,4H 4,4x,F5,2,3H 4,4X,F5.2 

3,4H * f 4X,FF,?,4X.4H* ,F5,2,4H 4,/2H 4,28X,1H4,1?X,1H4,11 x,1H 

44,12X,1H4,1.3X,!H*,nX*lH4,/3lH 4 INDOOR IONIZING RADIATION 4,4X,F 
5S.2.4H 4,4X,F5.?,3H 4,4X,F5.2,4H 4,4X,F5,2,4X*4M4 ,F5,2,4H 

6 4,/2W 4,28X,lH4,l?X,lH4,llX,lH4,12X,lH4,13x,lH4,nx,lH4,/3lH ♦ 0 

7UTD00R IONIZING RADIATION +,4X,F5.2,4H 4,4X,F5.2,3H 4,4X,F5„2,4 

8H 4,4x,FS. 2,4 X ,4M4 ,F5.2,4H 4,/lH ,94<1H45) 
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SURVHIsi.o 

suRvni.i.o 

SURVWIal.O 

SURVMIsi, o 

SURVHOsl.O 

suRvno*i,o 

SURVWOs1*0 
SURVMOsl.O 
SURVls1.ft 
SURV0=1.0 

no i i=i,io,? 

SURVHIsSnRVH!»SURvn,n/FlN 
SURvnisSURVDI«5URVU,2)/FlN 
SURVWI=SHRVWT«SURV(l43)/F!N 
SURVHI=SURVMT«5lljRV(! ,4) /FIN 
SURvI=SURv<I,5l«SURVI/FIN 
$URVOs$uRvf1+1,5)«SURV0/F0UT 
SURVHO=SliRVHO«SURV(T + l,l) /FOUT 
SURVOOrSURVDO^SuRV(1+1,2)/POUT 
SURVWO=SURVWO«SURV CI *► 1 ♦ 3) /FOUT 
1 SURVMO=SURVMO*SURV(1+1,4)/Four 

SURVHI3S!IRVHI«FIN 

survousurvdt«fin 

SURVWI = S«>RVWT«FIN 

SURVMI-SHRVMI«FIN 

SURV!sSURvr*F!^ 

SURV03SURV0*F0I'T 

5URVH0=snRVH0*FoUT 

SURVDO=SHRVDO* r CUT 

SURVW0=SMRVWO#FOUT 

SURVMOaSMRVMOoFOUT 

totsrvssurvmi+survmo 

POPsPOPDNoRERCnA 

SURVaSURVl + S'JRVO 
UNINJ3SUPV*P0P 


FATAL*(1,-T0T5RV)«P0P 

AINJRsPOP-FATAI-UNINJ 

WRITE(A,4o3) SURVHI,SURVDI»SURVWI»SURVMI«SURVI«SURVHO,SURVDO,SURVW 
10,SURVM0,SURV0 V 

403 FORMAT ( //4?H SURVIVAL FR0 r * ALL EFFECTS (FRACTION OF TOTAL),//llH 
2 LOCATION,21V,61HSURV. HOUR SURV, DAY SURV, WEEK SURV. MON 
3TH UNINJURED,//10H INDOORS,25X,F5.2,8X,F5.2,TX,2(F5,2,8X),F5.2 
W/11H OUTDOOR S,2 AX «F5,2 •0X,F5*2,7X,2 (F5,2»flX),F5.2) 

WRITE(0,404) UMINJ,FATAL,AINJR 

404 FORMAT( //30H TOTALS FOR THIS NODE (PEOPLE) ,//17H NUMBER UNINJURED 
2,7X,F9.0,//24H NUMBER OF FATALITIES ,F9.0,//19H NUMBER OF INJURI 
3ES,5X,F9,0) 

IF(IAC.GT.O) GO TO 10 
TUNINJoTUNlNJ+UNlNJ 
TFATALaTFATAL+FATAL 
tainjrstainjr+ainjr 

WRITE(4,405) TUNINJ,TFATAL«TAINJR 

405 FORMAT( //41H CUMULATIVE TOTALS FOR ALL NODES (PEOPLE)•//17H NUMBE 
2R UNINJUREP,4X,F10.0,//23H NUMBER OF FATALITIES ,F10.0,//19H NUMB 
3ER OF INJURIES,4X,F10.0) 

10 RETURN 


END 






MRFTC BILDS 

SUBROUTINE RILDIS 
C 

C DESCRIBES POST ATTACK CONDITION OF STRUCTURES At NODE 
0 

CCMMON/RLKft/ PC, TQ.RI.POnA 

CCMMON/BLkT/ N m ,PERCWI (10) ^POBIlPUO) *BUILDWI10) .BTLPLT(IC) * CONFER 
1 (10) .ETLOwKIO),P0SPP0(3),PCSPRI(3).NFl( 10).AINTPLdO) .EXRL(IO) , 

2PBREAK(10)«IWALLT(10).IBT(lO)iPERCOA,31LDHT(10) 

CCMMO.S/BUfl/ P p CRTB( 10.9) .PPERTIt10.9) ,RHKMAS 
WRITE(A,13) 

DO 1 1 = 1..'-IN 
WRITE(A,11) T8T (I) 

I f (PON A. S. T • PHkF AK (I) .AND.POBILD(I) .LT.BRKMAS) WRITE (ft. 12) 

:? (POT.fl.OE.pPSEAK (I) .AND.IWALLTd) .Nt.o) rtRITE (ft. 13) 

I.- (PO,*«A.LT»P n REAK (I) ♦ AND. I WALL T {15 . NE. 0. A.ND.POB It D (I) ,l»E.BRKHAS) 

1 * 31 T £ {6.14) 

If (? 0 N A. 0 E. P B * F A K {t). A.mD. >AuwT i r 1 ,CQ, 0 > aRITE ( 6.155 


1 CONTI.MIC 

10 FORMAT<3*H0POST ATTACK OESCRlPT 

11 FORMA T (lAHOaWIUDXfKi TYPE 113) 

1? FORMAT(OlhCEKTFRlOR WALLS H AV£ 

US rtAvF NOT FAILED) 

13 -CRmAY (2Tr.O£xT^RlOR WALLS MAvE 

i a v e failed 

14 FORMAT OlhficXTfSIOR * ALL 5 HAVE 

lLS rlAve FAIL'D 

15 FORMAT (2TnO£X TEkIOR *AlLS "AVt 
IS) 

RETuRN 


ION OF STRUCTURES) 

NOT FAJLFD/3VK INTERIOR MASONRY WAL 
FAILED/35H INTERIOR MASONRY WALLS H 
NOT r AUE0/35M INTERIOR MASONRY WAL 
FAlLcO/2fth NO MASONRY INTERIOR WALL 


END 


SLOCK n ATA 

COMMON /Bl KD/L I ST 1 (6) »L IST2 ( 9) «L IST3 (31) «L I STS (9) *L IST6 ( 7) ,LI ST7 ( 9) 

I. ISKfP(ft).LISTS(9).ABET A,I AC 

COMMON/RlKO/ D w B*DDYB,nWKB.DHTO.rDYTO.DWKTO.DMTHTO.DHTI.DDYTI t DWKT 

II. DMTHTI.DHD.D n YD.DWKD.D^TD, DH.OD.DW.DM 

COMMON /RLK1>/ DDYTMI,nWYTM*,DMTTHI,DDYTH0.DWKTH0.DMT7H0 
C0MM0N/BLK13/ AVEWTB.RAOG.RAON.DH80.OOBO.DMBO.DHBI.DDBI.DMBI. 
lODIONI.nWIONT.^MlONI.DDIONO.DWIONO.DMIONO 

COMMON/BLK14/T!T»TIO,DII.DIO.F!I,FIO.RI!«RIO.TijN1NJ.TFATAL»TAINJR 
DATA IBKTP/6«0/.DMBT.DDBI.UMBI.DHBO. 

8DDBO.LJMBO,OH t I .DDYTT .DwKTI .DMTHTI .DHTO.DDYTO.nWKTO.DMTHTO.DH.DO.DW 
9.DM.DHD,nDYD.DWKD.nMTD.DDYTHl,DWKTHI.DMTTHT»PDYTH0tDWKTH0,DMTTH0. 
1DDI0NI,OWION I.OMION I.UOIONO,OWIONO.DMlONO/34*9«0/.ABETA/0,0/ 
flATA TTI.TT0.0M .DIO.FIT.FIO.RII .RIO/BBO.O/.IAC/O/ 

FND 
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*IAFTC IMPT 

SUBROUTINE INPUT (KPRINT) 

COMMON/BU?/ G7X*GZY*XN*YN«$S*SN«SW*SE,Si,S2*PHI 
COMMON/BLKS/ W*HB»V!S,XO,FFr,AIROEN*ISEASN*TODAY 

COMHON/BLKA/ AVEHT*AVEWT*AV£W*AVEL*HMAX*A1*A2*A3*A4*A5*D1 *D2*D3*04 
l,D5*Wi,wP*W3.W4,W!>,iCA,AT0T*0lSMAX*nElTD*FACTl*FACT2*INDX (5) «AAA(5) 
2 * I M.iX 1 * IMi)X2«P r Rt*IN* t>OPON*REACSI»REACST,REACLV 
c nMMON/Ri <T/ N«,PFRCWT (in •PORIlOUO) .PUIlOW (10) *BJlOlT f 1C) *CONPER 
in0)*BTL0wII10) *"0SP R O 13 ) *POSPRI (3) *NFL 110) * AI NTRL <10?*EXRL(10)* 
2PBREAK (10) < IWAI.LT (19)*I8T(10) *PERC0A*BIIDHT<10> 

COMMON/RLK"/ P"ERTB<10*9)*PPERTI(10*9) .BPK.MAS 

COMMON /"LUO/ NH!U*HX(10) *HY(10) *HILLHT {10) ,HILLL (10) *HRLW110) 
COMMON /4LK11/ WALPANJlO) «WALDEN (10) .F1.0RTH < 10) .FLORDN (10) *ROOFTH( 
110)*ROOFONU0) .BASETH(IO) *BA5EDN(10) *S0ILDN(10) *SILHT(10) »PERSCR(1 
20) *PERSG(lO) ,PFrGG(10) *PERDb 5(10) fPERG(lO) *PERDE(10) *PERGGSUO) 
COMMON/BLXO/L1 STl (6) *LIST2(9) *11 ST 3(31) *LI5T'5(9) *LIST6(7> *LISTT(9) 
1 *!SK!P(A).tISTe<9),ABETA,!Ac 
C 

C READ LIST OF DESCRIPTORS 
C 

NP*0 

I IX*0 
M*1 

? IlaMATCH(LTST7*K*M) 

GO TOO,3,3*3*4) *11 

3 !X*IX«0 
M*0 

!F(IX-12>2»1*1 

4 K1»IC 

GO T0(S*13.2306*75.87*71 *72) «K1 

C WEAPON parameters 

c 

5 IX«0 
M*1 

6 I1bMATCH(LTST1*K*M) 

GO T0(7.7,7,7,4),11 

7 IX*IX«-1 
M=0 

IF(IX-12)6*5*5 
B Kl»K 

GO TOO, 10*11*12*1) *K1 
9 IlaMATCH(J*BX *3) 

W»BK*lnoO. 

GO TO 5 

10 11*MATCH(J*BX * 3) 

FFRsBK 
GO TO S 

II Il«MATCH(J*BX*3) 

hb«bk 
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GO TO * 

12 IlsMATCHtjtR*,3) 

GZXsRk 

fl=MATfH(J*RK• 

GZY=RK 
GO TO * 

C 

C WEATHER ANH TOMOGRAPHY 
C 

13 !X=0 
M=1 

14 Il=MATrHtLTST2*K.M> 

GO T0(15«15,15*15«16),11 

15 IX=IX+J 
M=0 

IF(IX — 12)14,13,13 
lft XlsK 

GO TO<17,1R,19,19,19,21,?2,1),K1 
17 Il=MATrH(J,BK,3) 

AIRDEN=RK 
GO TO 13 

1R Il=MATCHfJ,B*,3) 

VIS=RK 
GO TO 13 

19 Tl=MATrH(J,K,3) 

NHILL=Y 

IF(NHILl.LF.O) GO TO ]3 

no 20 t=i,nhtll 

Tl=MATrH(L!SY2,BK,n 
TlrHATOHlJ,BK,3) 

H X(11=RK 
Il=MATfH(J,PK,^) 

HYUlsRK 

Tl=MATrH(LlST2,BK,l> 

Tl*MATrH(J,RX,‘') 

HILLHT(I)sPK 
Il=MATrH(J,BY,^) 

HULL ( T ) =0* 

Il3MATrHfJ,RK,'«) 

20 HILLW(T)SBX 
GO TO 13 

21 T1=MATCH(J•K « 31 
JSEASNsK 

GO TO 13 

22 Il=MATrHlJ,BK,3) 

TODAY=«X 

GO TO 13 
C 

C NODE AMD BUjlDTNG PARAMETERS 
C 
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23 T X»0 
M*1 

24 U»MATCH<lTST3*k*M) 

GO T0<25*25,25,25,?6),11 

25 !X»IX*1 
MSO 

!F(!X-12)24,23*23 

26 XIaX 

GO TO (27,28,110*37,45*101*105.109*55*1155»35«38*39,40«4l,42,43,44 
1.47.48,49.50.51.52,53.54,82.136.132,134)*K1 

27 ll*MATCH(J*K,3) 

NNsK 

GO TO 23 

26 U«MATCH(J*BX*3) 

XNsBK 

Tl*MATfH(J.BK•3) 

29 VN»BK 
GO TO 23 

110 DO 111 isl.NN 

IIsMATCH(J*k * 3) 

111 TBT(I)rK 
GO TO 23 

.37 DO 112 xnUNTal.NN 
JlsMATrH(J,BX,3) 

112 CONPFR(XOUNT)= p K 
GO TO 23 

45 DO 113 KOIW=1,nN 
I1«MATCH(J,BK.3) 

113 BUTLnn(KOU*T)=PK 
GO TO 23 

101 DO 102 XOUNTel.NN 
!lsHATCH(J,BX*3) 

102 BILDHT(KOUNT)sPK 
GO TO 23 

105 DO 106 KOUNTxl,NN 
Il«MATCH(J.BX,3) 

106 BILDLT(KOUNT)*PK 
GO TO 23 

109 DO 106 KOUNT*l,NN 
H»M4TrH(J,BX*3) 

108 61lDWI(KOUNT>3*K 
GO TO 23 

55 T1*MATCH(J.BK*3) 

SS»BK 

11*HATCH(J *BX,3) 

SN*BK 

T1sHAT0H(J*BX*3) 

$E*BK 

I1*MATCH(J»BX,3) 

SW«BK 


23<f 





r,o to *>3 

155 NPaN p *l 

fjU TO i 

35 IlsMATCH<J.3K.3> 
PERCOA=RF 
GO TO 23 

3* DO 30 KOHNT=T,mm 
T lsMATOMlJsB^s’) 

30 WALPAN(KOU M n= p IC 
GO TO 23 

34 DO 31 ro"NTst,MN 
J1=MAT0H < J «BKi3 > 

31 WALCFN f K<->uNT> = n K 
GO TO ?3 

40 no 3? KOUNTsl » m n 

T1=^ATCH(j»B<»3) 

3? FLORTh ((COUNT > s p K 
GO TO 2 3 

41 no 33 FOUNTSl.WN 

U = MATrH(J,BF»3) 

33 rLORnN((COUNT)= p K 
GO TO 2 3 

4? DO 34 roUNTsl ,*'N 
Tl=MATrH< J-B(C .'*) 

34 ROOFTH(FOUNT>=R(C 
DO 34 f0! , N T = 1«NN 
I1 = mAT 0 H<j.r* »’) 

34 R00FDNU0UNT1 s p < 
GO TO 2 3 

43 DO 1?0 KOUNTsl.NN 
UsMATCHU.B*. «3> 

120 BASETHf (COUNT )= p K 

no 121 icountsunn 

T 1 =MATf H f J .B*< * 3> 

121 BASEDNjtcnuMTlsPK 
GO TO ?3 

44 DO 122 IC^UNTsUNN 
H=MATCH( J.BK.M 

12? SOIlDN(KOUNT(sRJC 
GO TH 23 

47 DO 123 (COUNTsI.NN 
TIsMA TOH( J .K.3' 

123 NFL U0MNT) =< 

GO TO 23 

43 no 124 (COUNTsI.NN 
IlsMATf.H(J.BK.3) 

124 PERCW! (K0UNT) = r ' K 
GO TO 23 

44 00 125 icnuNTsl.NN 
T1 2 MA TOH(J.8*.’> 




125 SILHT (if OiINT> a0K 
50 TO 2 3 

136 00 131 KnuNTsl,N*J 
H=MATrH< J.BK .6) 
i 3 i PtHut (» oU^T j ajjf/JOO. 

GO TO 23 

50 no 1?6 KOijNTs 1 »NN 
TIsmATOH* J,P.K,3) 

1?6 **n*>SCR UOUNT) s^K/iflO. 

GO to 23 

51 HO 127 KOuNTsl.NN 
n=MATrH(J*BK,*> 

l?7 PERGUouMn sRK/100. 

GO TO ?3 

132 no 133 KOijNT=l,NN 
!1=MAT0H<J.BK,3) 

133 PF.RSGUO"NT)3B*/100. 

GO TO 23 

5? DO 126 K0UMT=1,NN 
11aMATOH< J. BK , 3) 

126 PERGG<KOHNT)=Rt'/lP0, 

GO TO ?3 

139 00 135 KOUMTsl.NN 
T1«MATCHIJ.BK*3) 

135 PERGGS ((COUNT) =«K/100* 

GO TO 23 

53 no 129 KOUMTsl.NN 
I1sMATOH(J«BK O) 

129 PF.RDPSfKOUNT)sPK/100. 

GO TO ?3 

59 DO 130 KOUMTsl.NN 
I1=MATCH(J.BK.3) 

130 EXRL (KOIJNT) =RK 
GO TC 23 

82 00 602 KOUNTsl.NN 
11=MAT0H( J.BK m 
602 AINTRL(KOUNT)sRK 
GO TO 23 
C 

C CHARACTERISTICS OF WALL FRAGMENTATION 

C 

56 !X=0 
Ms 1 

57 IlsMATCH<LIST5,K.Mt 

GO TO<58»58,58.58,59>,II 

58 IX=IX*1 
M=0 

IF ClX-12)57•56,56 

59 K1=K 

GO TO(60.61,69.66,66.73.1.180).<1 
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60 no 601 KOimrl.NN 
I1=MATCH<J,B *•>) 

601 PBREAk(KOU^T's*X 
00 TO *6 

61 1IsMATCHfJ»X,31 
NS< 

GO TO 5 6 

6 A 00 65 X0"NTb1,NN 
DO 65 T = 1,N 
Il=MATrH< J,BX , 3) 

65 PPERTBfKOJNT*I>sBX 
GO TO 56 

66 HQ 67 KOUNTsJ,MN 
11= MA TCH(J, X , 3' 

67 T WALL T (XOUWT) s* 

GO TO 66 

66 Tl=MAyrH(J,BT«1) 

BRXMAScB* 

GO TO 56 

73 DO 74 XO'INTsl,NN 
00 74 fsl,N 

11*MATCH(J«0K » 3) 

74 PPERTI (XOljNr, I 1 = *X 
GO TO 56 

1B<7 1 1 =MATf H f J»BT ♦ 3) 

AfiETAsox 
GO TO 66 
C 

C DESCRI"TT0M "F PERSONNEL 

76 IX=0 
MSI 

76 I1=MATPH<l TS T 6 « X , M) 

GO T0<?7«77,77»7?,7«) ,u 

77 rxsix+t 
Ms 0 

IF<I X-T 2) 76,75.75 

75 X1=< 

GO 70(70.60,51,53,fl4,1J ,xl 
70 Ils^TCH (.1 ,p.X , 3) 

°O p (’N = rx 
GO TO 75 

60 ?1=MATCH(J,RX,5) 

PERPTN=B* 

GO TO 75 

61 no 1081 1=1,3 

Il = MATrM'j«BX, , »i 
ingi pospri m=p< 

GO TO 75 

83 DO 1085 !=T,3 


:39 






I lsMATfH(J*BK♦ *) 

1083 POSPROm SR* 

GO TO *5 

84 I1=MAT0H{J«0K,») 

RE AOS T = RX 

TlsMATrHf J,BKO) 

REACSTsflK 
IlsHATTHfj*BK»3) 

REACLYsHK 
GO TO >5 
?i XPPINTil 
GO TO l 
72 !X-0 
Mai 

t lRMATTHfL TST8.IC»WJ 

GO TO fl T C«170.170»170«17i>»I1 

170 IX=IX>] 


rniX-12} 170,72,72 

171 Kl^K 

172 iSKiPn 7 =t m ’ m,IT5 ‘ 1T ‘' ln ’ l ’ l,,l ’ l!1 
GO TO yp 

173 I*K!»(?)■! 

GO TO 7? 

174 ISXIP < 7)si 
GO TO 72 

175 !SKIP(4)a 1 
GO TO 7? 

176 I $X IP (*) s 1 
GO TO 72 

177 {SKI p (6)*1 
GO TO 7? 

178 IAC=1 
GO TO 72 


C 


THIS ENDS INPUT PHASE 











•MAFTC EFFfC 

SUBROUTINE EFFECTUPRJNT). r - 

CUMMON/hLK I/T *. .rr ijirm iuvv.ui >«w .-vw . . ~ • ...- 

COMMON/RLK*/ GZX »G?Y,> N , YN.SS*SN*SW*5E*S1«52»PHl 

rOMMON/RLK3/ W.HB.ViS.X0«FFR,AIRDEN«I$EA$N«TODAY _ _ 

ro«MON/Bll(*/ AVEM?,AVf NT, AVEW»AVFL*HMAX*A1*A2«A3*A4* A5«Dl*Di£tU3*D«» 
1,D5*W1 *w?*W3*WA.w«>*kA,:TOT,D1SMAK*0ELTD*FACT1,FACT2*INDX(5)*AAA<5' 

2.INDXl,!NDX2,P r R t> IN* P0PDN*RFACS|«REAC3T«REACLY 

COMMON/RLK*/ TA*CU*PWV**DYP,PREF 

COMMON/BLKY/ NM^PfRCW! <! 0) *POBlLD(lO) .BUllTIwUP) .0 ILDL T (! 0) *C0NPf:R 
I {10) 10) *POSPR(l(3) «P0SPRI (3) .NFL (10> ♦AJNTRL (K/) *tXRL (10) » 

2PBREAX <l r ) » IWAI.LT (10) • T.B T {] 0) ♦PEF , C0A«B1LDMT (10) 

COMMON/ftLK) 3/ »VEWT*,RAD(i,RAnN,nH80,n0B0*DHB0*DHBl.DPB! ,rM6I, 

IDO!ON I.OWI^M,nMION!,ur<IONO,r>WIONO,nMIONn 

C CALCULATE OVERPRESSURE A'-)t) POSITIVE PHASE DURATION AT NOPE POINTS 

c (Free rjFL n ) ’amo print 

C AT X0BS0»T( (f,7X-XN)*«2*(6ZY-/Nj**2) 

CALL wEAPOM(W*YO*HF»,PO*TO,Ta*O.OJ 

C USF R-M FQMATt^NS TO COMPUTE SHOCK VELOCITY* WIND VELOCITY* PEAK 

C DYNAMIC PRESSURE* AND REFLATED OVER PRFSSURF AND PRINT 

C CU-112A.PSQRT(1.*6.PPO/10?*9) 

PwV=S6XO,PPO/<102.9PSQRT(1. *h .*PO/l02.9)) 

POYP-S^POPPO / (20S.A-f2.PPO) 

PRFFs2.« p O-fO. A»POYP 

c CALCULATF thermal energy AT NODE POINT (CAL) AND PRINT (FF) 

c 

TQxFIRF(W.XO*H p ,Vr‘) 

C CAICULATP IONIZING •> avi IA TI ON IN RAIS AnD PRINT (FF) 

C CAtL RADION(W,»0*HP.RI «RA t )G,RADN) 

C COMPUTE ATYFNuPTED MODE OyERPRESSURE 

C PONAsP^M^nF fAV F H^.AVEW T *P r '^ 

C COMPUTE ATTENUATED INTERIOR OVERPRESSURE FOR EACH BUILDING TYPE 

^ no 117 1=1*NV 

WPxPFRCWT(I) /IOC. 

U7 «»OBILD(I)= p OARFD<WP*PONA) 

RETURN 

FNT) 
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SU^ROUrIN e wrA»ON(W»^0«HP,OvE»P«POSPH,AT,T) 
SC ALF swoofl,/^.} 

HBSsHB/SCALF 

xcssxo/srAir 

OvrfiP=FlMO(HuS»xOS) 

f>55PHr«-u. 5 r. ! u j . iSiS0 5 !5St »,r 

ATsFIN^ aT jHB8«XOS)»SCALE 
1 r ( T 1 19,1 ?,\% 

n ov?:RPsnFCAY(ovFRP,pns?H,T) 
i? Rt turn 
E NT* 
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M^rTC DINT 

FUNCTION FlNPI**'t,X'>) 

HI MEN ST ON »JB'P).CM2),P'7M2).m2) 

DATA C.NP/l..2.,4..6.,0,,10.,15.,20.*30.*50.,100.*200,*72,58*48*46 
1,44.43.41.08,37.76.?0.16/ 


DATA <«• (T , 1) ,1 = 1*72) / 


X386f),,3940., 

4020. ,4100 

nno 

,4260 

,4350**4440. 

,4530. 

,4620. 

4710. , 

X4780.*4ft8o. 

4920. .4 ngn 

,5060 

,813? 

, 8 200 ,, 5276 » 

>5308. 

*5420. 

5472.* 

X5524.,85*6., 

56?«.*5660 

,5738 

.5796 

* 5 054,*5912. 

,597C. 

,6028, 

6086. , 

X614A » ,6202. 

6260.,6715. 

,6 364 

,6416 

,6468..6520. 

,6710. 

.6920, 

7080.* 

X7240..7X10. 

7320. .77-3n 

. 5 0 1 0 

,4870 

,4740.*4630. 

,4500. 

,4460, 

4380., 

X4270. ,414q.. 

4040 , ,3520 

. 4790 

,3630 

,4520.*4370. 

,4720, 

•3050.1 

2900. • 

X2700.*7460. 

?20o.*1*50. 

.1500 

, 1GPO. 

/ 




nATA < P (T * ? ) 

,1-1,72)/ 







X?4fi0.,?5?Q. 

*576. .2624 

,7672 

,2720 

,2776.*2032. 

,208ft. 

,2944. 

3000. . 

X 304 4, , 3D88, 

417?..4176. 

* .4 2 2 0 

,3268 

,3316.,3364. 

,3412. 

,3460,1 

3492. , 

X3S24,,X5^6. 

75*fl. ,7*20 

.3660 

,3700, 

,3740**3700. 

,3820. 

,3858., 

3896,* 

X 3934..4972. 

401 r. .403?, 

♦ 4 Q s /, 

,4076 

,4098.*4170. 

,4150. 

.4 no,, 

4000. . 

X3160. .79*>0. 

*sno . ,7470 

,2540 

,2410 

.7260.,7130. 

,1900. 

*10*0,* 

1660.* 

X1440♦ .1040.. 

650., -0 

, -0 

, -0 

. -0.* -0. 

, -0. 

-0. 

-0, , 

X -0., -0., 

-0 • , -0 

, -0 

, -0, 

/ 




DATA <P(T.X, 

,1*1*7?)/ 







XU30. ,1 660., 

1600..1720 

,1750 

.1780, 

*1810.*1840. 

,1070. 

,1900., 

l 9 30., 

X l. .1478,. 

200?.,?0?6 

,2080 

,2072 

,2095.*2116, 

,2130. 

,2160, 

21 fiO , , 

X72P0.,?2?0. 

*240.,? 7 6 0« 

. 7 2 0 2 

• 7 304 

,2326.,7348. 

,23*0. 

•2396. 

2422.* 

X244fl t ,7474. 

25*0.,7512 

,7574 

.2536 

,2548.,2560, 

,1600. 

*1610. 

1450., 

xnoo, ,i no.. 

9 Of! » , 540, 

, -0 

, -0 

* -0.* -0. 

, -0. 

-0, 

-0. * 

X -0.. -0.. 

-o., -0 

, -0 

. -0 

, -0,* -0. 

, -o. 

-0, 

-0.* 

X -0.. -0.. 

-0., -o. 

, -o. 

, -Q. 

/ 




DATA (FMT.4) 

,1=1,72)/ 







X1360..1872. , 

1384.,1396. 

,1400. 

,1420, 

,143«.,1456, 

,1474. 

*1492. , 

,1510. , 

X1826 » .1542 ., 

155a. ,1874, 

,1590, 

,1512. 

,1834.,1556. 

,, 157ft. 

,1700., 

,1710., 

X1TJ6, .1754., 

177?.,1790. 

,1010. 

,18.30. 

, 1850. , 1070, 

,,1090. 

,1912., 

.1934. * 

X1956..1970. . 

7000.,2000. 

,?0''0. 

,2010, 

. ,?oon, 

,♦1270. 

* 1100.1 

. 930.* 

X 700.. 3?0 • . 

-0., -0- 

, -0. 

, -0 < 

, -0., -0. 

i, -0. 

* -O .1 

. -0.* 

X -o.. -0.. 

-0., -o. 

, -0. 

, -0. 

, -0., -0, 

,, -o. 

• - 0 . ■ 

. -0. • 

X -0.. -0.. 

-0., -0, 

, -o. 

, -0. 

/ 




DATA (p (T . 8 ) 

,1=1*72)/ 







XI120..1130.. 

1140. , 1150, 

,1160. 

,1170. 

, 1104. , 1198. 

,,1212. 

.l?26,i 

. 1240.* 

X 1286.. 1.272,, 

1280.,1304, 

,1320. 

,1347, 

,1364.,1386. 

, , 1408, 

,1.430,, 

.1450. , 

XI470. «1 4°Q.. 

1 5 ' 0 .. 1830. 

, 1554. 

,1578. 

,1607.,16?6. 

,1650. 

,1656., 

.1662.* 

X1668.,1674., 

1680..1850, 

,1420. 

,1290, 

, 1 1 60.* 1 740. 

,, 860. 

, 640,, 

. 310.. 

X -0., -0., 

-0.. -0* 

. -o« 

. -0. 

, -0.. 

-0. 

. -C. 1 

. -0.* 

X -0., -o.. 

-0., -0« 

. -o. 

, -0. 

, -0., -0. 

,. -o. 

. - 0 ., 

. -0.* 

X -0., -0., 

- 0 .. -o. 

• “0. 

, -0. 

/ 




DATA (p(I, 6 ) 

,1=1.7?)/ 







X10?3.,103l., 

1043 . , 1056, 

»108*, 

,1070, 

,1090.,1102, 

,*1114. 

,1125,, 

.1137, , 

X1152..1145,, 

1 179. . 1197, 

,1213. 

, ’730, 

, 125-3. , 1273. 

,*1295. 

*1315,, 

.1340,* 

Xi;360.,)380,. 

1 4 n 2•, 1 4 ? 3 < 

, ’ 4.4 7, 

, 1447, 

,1.453, *1457. 

,.1453, 

, 1450., 

.1430. , 

X1418..1302,, 

1346., 925, 

, A* 5, 

, 025 , 

, 791,, 745, 

,, 570. 

* no,, 

. -0., 
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X -o. 

. -0, ♦ 

-0.. -o.. 

-0. 

-0. , 

-0. 

-0. , 

-0.* 

-0., 

-0. ♦ 



X -0. 

. -0. , 

-0.. -0., 

-0. 

-0, , 

-0. 

-0., 

-0. , 

-0, , 

-0. , 



X -C • 

; -Gi t 

-n.. -n.. 

«0. 

-0./ 







i- 

DATA 

<P(**7) 

1 = 1*7?) / 









L 

X 820, 

♦ 8?6., 

832.. *4?., 

848, 

855,, 

863. 

872., 

880,, 

890,, 

902. , 



X 917* 

« 9-'?., 

946.. 964., 

9*4, 

998., 

.023, 

1047 s» 

.068,, 

1094., 

1125. « 



X1150. 

m3.. 1191. , 

194, 

1192., 

,184, 

1173,, 

.152, , 

1087., 

661. , 



X 622* 

, 5*5,. 

546., 505., 

458, 

400,, 

347, 

295., 

-0., 

-0. , 

-0. , 

-* 


X -o. 

. -0.,' 

-0.. -0*. 

-0. 

-0, , 

-0. 

-0., 

«0» * 

-0,* 

-0, ♦ 



X -0. 

. -o.. 

-o.. -o.. 

-0, 

-0., 

-0. 

-0., 

-0. * 

-0»« 

-0. , 



X -0. 

. -o.. 

-o... -cu. 

-o. 

-0, / 






— 


DATA 

<p(f .4) 

1=1*72 )/ 










X 71?. 

, 716., 

7?(T., 729., 

73?. 

738., 

740, 

747. , 

751., 

756. , 

760. , 


f 

X 766, 

, 776., 

78?., 792., 

80?, 

812,, 

828, 

842., 

860, , 

881., 

911., 


i 

X 927, 

, 936., 

942,, 942., 

93 6 . 

919, , 

850. 

575., 

541,, 

500., 

451., 


r 

X 403, 

. 349., 

288., ’??., 

95. 

-0, , 

-C. 

-0,. 

-0., 

-o.. 

-0., 



X -0, 

» -0. , 

-0., -0., 

-0, 

-0., 

-0, 

-0., 

-0., 

-0.* 

-0., 


j 

X -0, 

, -c. , 

-o., -0., 

-0. 

-0,, 

-0. 

-0., 

-0.. 

-0,* 

-0.* 

1 


X -o. 

» -o. . 

-0*. “0* « 

-0. 

-o./ 






i 


OATA 

(p( f,4) 

1=1,7?) / 










X 5*5. 

, 5*6., 

5*7 ,, 488., 

589. 

590, , 

592, 

595,, 

597. , 

599,* 

600., 



X 602 

, 600., 

6"9., 612., 

6l9. 

622 ., 

630, 

638., 

648, , 

667,* 

667., 



X 670. 

. 669., 

6*4., 478., 

43fi. 

392. , 

342, 

293., 

239. , 

135, * 

-0., 



x -o. 

« -0. , 

-0., -0** 

-o. 

-0. , 

-0, 

-0 «» 

-0. , 

-0. * 

* -0., 



X -0. 

, -0. , 

-0., -0., 

-0. 

-0., 

-0. 

-o.. 

-0. , 

-0.* 

-0., 


? 

X -0, 

, -0. , 

- 0 .. -o., 

-0. 

-0., 

-0. 

-0. , 

-0. , 

-0. * 

-0., 



X -0. 

, -0, ♦ 

-0.. -0«, 

-0. 

-o./ 








RATA 

( T , lot 

♦1=1.7?)/ 









■. . 

! X 460. 

, 461,, 

46?.. 466., 

466* 

461.. 

468. 

469, , 

470, ♦ 

472, ♦ 

476., 


1 

i X 4*0, 

, 4*4., 

489, , 499.1 

500. 

510,, 

519. 

523.* 

523. . 

5)2, * 

349. , 



X 303. 

, 260,, 

209., 154., 

-0, 

-0,, 

-0, 

-0., 

-0. , 

-0. * 

-0., 


1 -i 

! x -o. 

, -o. « 

“0* • “0 •, 

“0* 

-0.* 

-o. 

-0* » 

-o. * 

-0** 

-o. » 


f ■! 

X -0, 

, -0. , 

-0., -0.1 

-0, 

-0,, 

-0 , 

-o.« 

-0., 

-0** 

-0. * 


i i 

X -o. 

, -0. , 

-o., -0., 

-0, 

-0., 

-0. 

-o. . 

-0., 

-0. * 

-0. . 


1 :« X -0, 

, -0. , 

-0*. -O.t 

-0. 

-b,/ 








DATA 

<<»<!. Ill 

,1=1,7?)/ 










X 330, 

. 337., 

340., 34ft., 

35C, 

356., 

360, 

365., 

369,. 

372., 

379., 



X 3X4, 

, 3AX., 

300,, 390., 

380. 

260, , 

220. 

173., 

114., 

-0,, 

-0., 



X -0. 

, -o., 

-0.. -0*, 

-o. 

-0., 

-0, 

-0,* 

-0.* 

-0.* 

-0., 


: 

X -0, 

, -0, , 

-0., -0•, 

-0. 

-0., 

-0. 

-0. * 

-0., 

-o., 

-0., 



X -0. 

, -0., 

-0., -0*. 

-0. 

-0., 

-0, 

-Ov . 

-0. ♦ 

-0. , 

-0., 



X -0. 

, -0,, 

-0., -0., 

-0. 

-0., 

-0, 

-0., 

-0,, 

-0,, 

-0., 


i 

X -0. 

, -0 • ♦ 

-0., -0*, 

-0, 

-0,/ 







i 

DATA 

1PCI.12) 

,1=1,7?)/ 









! 

X 260, 

, 248., 

248., 250.. 

250, 

250., 

250, 

250., 

251,, 

253., 

263.* 

. ? 


X 266. 

. 220., 

180., 136.* 

61. 

-0. , 

-0. 

-0.* 

-0., 

-0.* 

-0. ♦ 



X -0. 

» -0., 

-0., -0», 

-0. 

-0., 

-0, 

-0.* 

-o.. 

-0,* 

-0.» 



X >0, 

, -0., 

-0,, -0.* 

-0. 

-0, , 

-0, 

-0. , 

-0., 

-0., 

-0. , 



X -0. 

, -0., 

-o., -o.. 

-0. 

-0. , 

-o. 

“0., 

-0,, 

-o., 

-0., 



X -0 

-0,, 

-0,, -0 », 

-0. 

-0. . 

-0, 

-0., 

-0.* 

-0,« 

-0.* 
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* -n. . _,i. . _n . . . -n -. .0./ 

IF(HT-inno.)?« I. i 

? DELT=2^.n 
JJ = 1 

STARTsP.O 
GO TO 7 
1 DElT=l?5.0 
STARTS1000. 

JJSAI 

3 no 7 lrjj,72 
list 

JF (HT-START) 4,-%7 
7 STARTs<iT*R r + r >EtT 

WRITE(A,5) H T »yO»GTfl9T,DCLT 

5 FORMAT (2?WPpPE*SURE OUT 0^ RANGE/4W HT«,E20.A/4tf X0», C20 .<*/7H STAR 
lT=»E20,fl/6M nEI.T=*F»O.A> 
a ratiosistart-ht) /n e«, r 
no 10 T = I ♦!/> 

T r (MP|TI-l!*l)<»,R,A 

« '!I)=0.fl 

GO TO 10 

fl 7 (!>sput ,T)-RATIO»<P(I I,I>-P<11-1 • I> ) 

in conttnmf 

00 20 Tsl,1? 

J=! 

!F(Zm-Xn)21,?2,?0 

20 CONTTNi'F 
2 ? FINDaCfJl 

GO TO ?5 

21 FINIlaCM-ll *lC(I)-C(I-in<Hzn-l)-XO) / (7M-P-2CIM 
25 RETURN 

END 


-XT"FTC DEC A 

FUNCTION DECA Y(P » TPiT > 
nECAY= p *(l.-T/TP)»FXP( - T / T p ) 

return 

END 
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SlBFTC F!NOT M94 » XR 7 

FUNCTION FTNDAT(HT,XO) 

niMFNSTON NF(l«ttC(19)«P(37,19),Z(19t 

HATA C,N«>/0. 04,0,07,0. 1,0,15,0,2,0.25,0.30,0.40,0.50,0*60,0.80,1. 
X,1,5, 2,0,2. 5,3, 0,3, 5,4.0,4.5,6,8,9,11,13,14,16,18,21*21,22*23,25, 
X2S,30,12,36,??,27/ 

DATA (P(T,1),I=1,17>/ 

X30n. ,298.,?79..240., 195, ,110, • 3 1<»0*0✓ 

DATA (p I!,2),1=1*37)/ 


X385,,382.,*72. 

,345.,305.,253. 

,190. 

,30*0. 

,0/ 




DATA (PIT.3),I 

= 1,37) / 







X470.,468.,458. 

,43?.,398.,350, 

,300. 

,228, 

,110, 

,28*0,0/ 



DATA (0{t,4),I 

=1,37)/ 







X56?.,559..650. 

,53a.,512.,460, 

,446. 

,395, 

,333. 

,255.,130. 

,26*0, 

.0/ 

DATA (PM, 6), I 

= 1,37) / 







X658.,633..647, 

,630.,610,,560, 

,549. 

,508,. 

,458. 

,402.,34?, 

,256. ■ 

,25*0./ 

DATA (PIT.6),I 

=1*37)/ 







X740.,778..730. 

,717.,697., 672, 

,644. 

,610. 

• 568. 

,520.,466, 

,405. 

,315.. 

X215.,2 ToD.0/ 








DATA (o(T.7).1 

=1,37)/ 







X825.,8?0.,613. 

,600,,784..760, 

,735. 

,700.. 

,660, 

,620,,572. 

,520. 

,460., 

X395.,3nn.,l20, 

,21*0,0/ 







DATA (P(T tA) ,I 

= 1,37) / 







X96?.,96l..959. 

•951.,v 36.,9l7. 

,895, 

,867., 

.833, 

a 795,,760. 

,716,i 

.670,, 


X628.,572,,508..418.,320.,19*0,0/ 

DATA <p (t ,9) ,1*1*37) / 

X1100,,1103.,1100,,1093.,10«Q,.1067.,1050,,1023.,997,,967.,932., 
X896. ,850, ,810. ,760. .710. ,647 , ,590. ,5 15., 425., 230,, 16*0.0/ 

DATA <p(!,10)»TsI,37>/ 


X1240,*1242..1241, 

,1234. 

,1225a' 

.1210, 

,1192. 

,1168, 

,,1142, 

,1114, 

,1080 

X1050.,1015..980,, 

939,,897.,844.,800 

.,745. 

,685., 

,607.,16*0.0/ 


DATA (PlMll.Isl 

,37) / 








X1900,,1490.,1480. 

,1470, 

, 1460., 

1450. 

,1432. 

,1414, 

,1396, 

,1378, 

, 1360, 

X1324,,1288,,1252. 
X15»0,0/ 

.1216, 

, 1130,1 

.1144, 

,1108, 

,1072, 

,1036. 

,1000, 

,630., 

DATA (PIT,12),T=1 

,37) / 








X1730,,1728,,1726. 

,1724, 

, 1722,, 

.1720, 

,1704. 

,1688, 

,1672, 

,1656, 

, 1640, 

X1608.,1576.,1544. 
X680.,14*0.0/ 

,1612. 

, 1480, , 

1450, 

.1420. 

,1390, 

,1360, 

,1330. 

,1070, 

DATA (P(T,13).I=1 

,37) / 








X2350..2348.,2346, 

,2344. 

,2342,' 

2340, 

,2328, 

,2316, 

,2304, 

,2292, 

»2280 ( 

X2254.,?228..2202. 

,2176. 

,2l50,i 

-2120, 

,2090. 

,2060. 

♦2030, 

,2000, 

,1870, 

X1730,.1420.,1000. 

,12*0. 

0/ 







DATA (P(T«14)«T=1 

,37) / 








X2950..2948.,2946. 

,2944. 

,2942., 

2940, 

,2926. 

,2912. 

,2898, 

,2884,. 

,2870, 

X2848.,28?6.,2804, 

,2782. 

,2760., 

2736. 

,2712, 

,2688, 

,2664, 

,2640,. 

,2530, 

X2430..2250,,20^0. 

,1740. 

,1300a, 

600., 

9*0,0/ 





DATA IP (1.15), Tsi 

,37)/ 








X3540.,153a,,3536, 

,3534. 

,3532,, 

3530, 

,3524. 

>3518, 

,3512, 

,3506.' 

•3500, 

X3480.,3460.,3440. 

,3420. 

,3400a, 

.3370. 

,3340, 

,3310, 

,3280. 

,3250, 

,3150, 
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X3060.,7940 

. .7780. 

,7550.,?300..2030, 

, ,1610.,1050. 

,7»0 ,1 

0/ 


DATA (PfT. 

18).!=1.37)/ 





X4U0..4H2 

.,4114. 

,41 16.,4118,,4l?0, 

, ,4112.,4104. 

.4096 

. ,4068. 

.,4080., 

X4060,,4040 

. t*0?0. 

,4000.« *9ft0»,3956, 

, ,3932,,390ft. 

.3884 

. ,3860. 

,,3750., 

X 3700«,X5A0 

. .3450. 

.3300..3090.,?8ft0, 

, ,2600.,?35C. 

,1920 

t vi350« 

, ,5 = 0.0/ 

DATA (Pd, 

17),1=1 

,37) / 





X4680. ,4ftfl4 

.,4648. 

,4692.,4696,,4700, 

, ,4694,,468ft. 

.4662, 

, ,4676, 

,4670., 

X4652•«4634 

. ,4616. 

,489ft..4580,,4560. 

,,4540.,4520. 

,4500 

, , 4 4 ft 0 1 

,,4340.* 

X4370.,4270 

. ,41«0. 

.4000..3520,,3650, 

.,3420.,3220. 

.2930, 

. ,2600• 

,2200., 

X 1650 , , *20, 

,2*0,0/ 






T1ATA (P(I, 

1ft) .1 = 1 

,37) / 





X5230.,5238 

. .8246, 

,8754,,5262.,5270, 

, .5266,,526’. 

,525ft 

. *42^4. 

,5250., 

X5232,,ft?l4 

. ,5196. 

,517ft.,5160.,5142, 

,,5124,,5106. 

.5038, 

, .5070. 

,4950., 

X4870,,4800 

. ,47 r >0* 

.4620.,4470.,4330. 

, ,4140.,3950. 

• ft 740, 

. ,3800, 

,3200., 

X2860.,7470 

..1900. 

.1100,/ 





nATA (D<I, 

19',1=1 

, 37 > / 





X5800,,5806 

.,5»12. 

, 5ft1 ft.,58*4.,5830, 

,,582ft.,5876. 

,5324, 

. ,5*72. 

,5820., 

X5806.,6792 

. ,877ft. 

,5764.,5750.,5730, 

, ,5710.,5690, 

, 5ft"*C . 

. ,5630. 

,5520,• 

X5460,,6400 

. ,5370. 

,5230.,81’0,.5020. 

,,4870.,47*9. 

.46?^ 

, ,4 }P>0 . 

•4040., 

X 3760,, 3450 

, ,3140. 

,2770./ 






IF IHT.fiF. 100«.' GO TO 1 
DEL T=50• 

J J“ 1 

STARTsn.n 
GO TO 3 
1 HELTS2S0. 

STARTsnOo. 

JJ = 2? 

1 no 7 I=jj,37 

ii = t 

IF(HT-ftTA R T)4,7,7 
7 S7ART = «iTART + riEl. t 

WRITE!*.*1 HT,*0,START,DEI? 

5 FORMAT(2*H0APRTVAL TIME 0U t OF RANGE/4H HT=,F20,ft/4H XO=,E20.8/7H 
XSTART = ,F?0,8/6H HELT=, F.20 .8) 

4 RATJOS(START-HT)/nFtT 

no 10 t=i,J9 

IFINP(!)«iTf1)R,0,8 
9 7 (I>=0,0 
GO TO 10 

ft 7< !>=P(IT,T)-RATI0»tP(II,I'-P( 11-1,1) ) 

10 continue 
DO 20 Tsl .19 
J=I 

IF(Zm-*0)2D.?2»?l 
70 CONTINUE 
7? FINQATaC(J1 
GO TO 78 

21 FiNOATscn-n^ «c < n -c d-m*>(Z <i-n -xO) /iza-D-z <m 

75 RETURN 
ENn 
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MBFTC FJNDP M94» X b 7 

FUNCTION FTNOTOt HT,XO) 

DIMENSION NP(7»,C (T) ,P(31« 7)*2(7) 
nit a r.uB/nt.nte a «« n o- a 

.. 

X350 , ,340, , 363,.400.,450 , ,487, «50C 
X160.,17»0.0/ 


» 16, !«»*<♦, J1 , 1 3%»/ 

♦495.,430.,350..290,,260..220., 


DATA(PfJ«2).!=l,31i/ 

X555.,540..635..565.,615.,635.,656,,660,*6&0e*625 e ,580.*530 e4 470.. 

X390.,2«>5..145..15*0.0/ 

DATA (Pi!«3),1=1,31)/ 

X770.,76P,.789.,a25.,870.»895.,905.,910 t *905.,900,,S75.,860.,605.. 

X735.,635.,495.,32%,,155..13*0,0/ 

DATA (P (1,4) ,1=1.31)/ 

XI085.,1090.,1070,,1090.,1120.,1165,,1205., 1230,* 1255,,1280.,1300., 
XI315,,1316,,1313,,1290.,1270,.1090,,965,,835,,705.,600,,460.,300., 
X160.,7*0,0/ 

DATA (P(I,5),1=1,31)/ 

Xl400..1405,,1415..1420.,H40,,1465,,1500,,1560.,1660.,1745,,1810., 
XI845,,l9n5.,l9 , 8,,1975,,?0OC,,2025,,2040,,2050,,2050,,2040,,2023 , 
XI990,,1950.,1890.,1620.,1745,,1600,,1410,,1135, ,650,/ 

DATA (P(T,6),1=1,31)/ 

X1812,,)832,,1865,,1678.,1905,,1950,,2000,,2045,,2115,,2200,,2315., 

X2465,,?710,,18«0.0/ 

DATA (P(T,7),1=1,31)/2l60,«2205,,2275.,2365.,2465.,2620.,2780,, 
X2950.» 23*0.0/ 
ntL T=50.0 
STARTsft.O 


DO 7 1=1,31 


II = I 

IF»HT-START)4,7,7 
7 START=START,n E LT 

WRITE(A,5) HT,X0,START,DFLT 

5 F0RMAT(?6h 0PHA$F DURATION OUT OF ftANGE/4H HT=,E?0.8/4H XO=,E?0.8/ 
X7H STARTS,F20.6/4H DELT=,E20.8) 

4 RATI0=(STADT-M t 1/nrLT 
DO 10 1=1,7 
IF(NP<T)-ITn> e ,8»8 
9 Z(I)=0,0 
GO TO 10 

6 ZU)=P(I!,I)-RATIOP(P(II,I)-P(H-l,I)) 

10 CONTINUE 

DO 20 T = K7 
J = I 

lF(Zm-XO)2f),22,21 

20 CONTINUE 

22 FINDTOsC(J) 

GO TO 25 

21 FiNnTo=cu-i)»(c(i)-cn-i))«(Z(i-i>-xo)/(z(i-i)-zm) 

25 RETURN 
ENn 
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*IRFTC PONOD M94,X®7 

function ponoo*<m,d,po> 

PONOHES (0. nfc'‘D'H + 0»<*5) PPO 

ir<pnNorF.r,T.p^) ponoofspo 

oftiion 

eno 


tTRFTC P08RE H94.X»7 

function pobrfocx.po) 

nATA ( Y f n ♦ ? = 1 « U ) /'O.O. 0,474,0,704.0.807.0. *67.0.904.0. <*33.0,95* , 
10,978.0.089, \ .0/ 

DIMFNSTON V(ll> 

DO 1 1=1.11 
XlaFLOATU-D/lO. 

J-I 

IF < X-XT >3*?,t 
1 CONTINUE 
? YlsY(J) 

GO TO 4 

3 Yl = )0. u(Xl-XM<Y(J)-Y(J-l) >*YU-1> 

4 P08RFD = Yl*> p 0 
RETURN 

END 


<M PFTC THFRML M 94 .XF 7 

FUNCTION FTrF{W,X0.HB,V5 
f 

C DETERMINATION "f 0 BY GIW30NS EQUATIONS 

C 

S = SQR'f < XO<»XO*H R <»HP) 

SSS/B200. 

A = 2,9«<; 

IF(A,GT.?0,3) a=? 0.3 
T = 0.78«EXP{-7.91»S/V)<M1.*A/V) 
FIPFsl.04<»WoT/ < S«S) 

RETURN 

END 
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HTBFTC RADI 

c SUBROUTINE RAOTON(w«Xn«HR,Rl«RAOGtRADN) 

C DETERMINATION hf I ON 17lNft RADIATION IN RAD* FROM SOFT TARGET sTUnY 

D s SQRT IXO«yo*HB<*He* /3. 

Wr SW 

JFMW.r,T,20.0> .AND, iW.LE.lOO.) ) GO TO 1 
IFUW.OT. lOo. ) ,ANO. (W.LE. 5000*)) GO TO 2 
jF fW#6T,^fi00i > GO TO 3 
GO TO 4 

1 WPaO,6i4#H»M 0 1 63 
GO TO 4 

2 WP30,4A5»W*#1.214 
GO TO 4 

3 WP*0.005*W«»#1.740 

4 AKsl 

IF(HR.|T.< lBO.ftW^O.A)»AKsO,67+0.33«HB/U80,»w»*0.4) 

RAHG= 1 .F9»AKttT,2«WPOEXP 1-0/360.)/ (D»!i) 

RADN= 1,F9*AT<M 5.5»W«FXP!-D/210,)/ID«0) 

RlsRAUG4.RAnN 

RETURN 

END 
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I-1 

ih 

!| i 

If T 

; ; 4 

I 





1 I 
i 

; i 


«!“FTC GEOM 

SUBROUTINE G^OMCTt<PRJNT) 

;ftMuAu^i_jr?/ (i7y.r:7y-ww.Yw»35.5w t 5U.SF»5l.s?.pwt 

COMMON/BIX*/ 4VEHT,AVEWT.A E*.AVFL.HKAX.A1♦A2.A3.A4,A5t01»D2»D3«n4 
1,D5«K1,w?.W3,W4,W5«<A,ATnT,ClSMAX«DCtFD*FACTj.EACT?,»VOX(5)«AAA<*) 
Z.INDXl.INQXp.PPRPIN. PO p DN«KtAC5I ♦StACST*KtAC(. 1 * r 
COMMON/BLK7/ NN.PfRCWI(10) *pOB 11.0(10) .BCllOWf19> .B!LOlT<10) .CONPFP 
1(10) »BTLnWTM0).P0SP9O(3),OoSPRl(3)»NFLa0}«A!NTRL< ,f ') «EXPL(10). 
2PPPEA* (10) ,TWALL7(10) .IRTdO) .PERCOA,BJLDHT(10) 

COMMON /"IK 1 3/ A VEWT* .R ADO «R AON,DHBO.ODBC♦DWBO * "HP, I ,DWBI .PM0I, 

100TONI,nWiONI.nMlON!.ODIONO,OW!ONO»DMIONO 

r 

c calculate average quantities and maximum height 

r 

PIs4 v «ATAM(l.> 

AVEW = 0.f) 

AVEL = 0,9 

AVEHTsfi.O 

avfwtb=o,o 

HMAX=0.0 

00 115 1=1«NM 

HMAXsAMAXl ( HMA X . B ! lOHT (I) ) 

AVEwTBsAVEWTB*BUll.nW<noC0NPFR(!>P10. 

AVEL = AVEL«-BlLOt. T(I)PCONPER(I»/lon. 

AVEW=AVEW+PtlDWI(I)PCONPERI D/ICO. 

115 AVEHTaAv p H T *"lLOHT(T)»CONPER(I) / 1.00. 

AVEwT3(S5-.SN-t'f)F->SH)/4, 

Si 8 (S S♦S N)/?, 

S2=(SE+SW>/2. 

c COMPUTE Nonr P"lNT AREAS and 0!STANCES 
C 

K A = 0 

PHI = ATAfj( A ft S ( (GZY-YN) / (G7X-XN1) ) 

!F(PHI.Lr.O.O.OR.PHI.r,F.pI/2.)GO TO 154 
Al= SIMAVEE-SIPCOTANIPHI) ) 

IF ( A1.1, F . 0.0) r <0 TO 154 
Ola S1/MN(PHT> 

A2a S*>S2*0.5«52*$?«COTAN(PHI). 

02s D!+52/COS(PHI) 

A 3a Slo<S!oC0 T AN(PHI)~S2) 
lF(A3.t.E.0.0) GO r 0 154 
03= S!/?TN<**HM 

A4= *0.5°S2ptAN(PHI) 

04= 0? 

A5=S2"♦AVEW-S2*TAN(PHi)) 

!E(A5,l E.0.05 r -0 TO 154 
05=S2/roM«>HT) 

AT0T=A1*A?*A3 > A4*A5 

Wl=Al/ n l 
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w2sA2/"? 

W3*A3/"3 

W4sA4/«4 

w5»A*/ n 5 

MSMAXsAMAXl C D1 .02.03.04♦D^l 
GO TO 1SS 

154 Al32,«flVEl*Sl*$l tt S2 
a2*2»''Avrw°S2*Si-G2 
AT0T=A1*A2-Sl«*2 
KAsJ 

ni=2,«AvEL*5 ? 

D2=2.«Avrw^Sl 

wlsAi/ni 

W2sA2/"Z 

ni=cii»o.*i 

D2=D2«o.5 

"3*0, 

04 = 0. 

05=0. 

A3 = 0» 

A4=0. 

A5sO. 

DISMAX=A M Ay1(01>D21 
15* HELTOsniSMAX/lO, 

RETURN 

END 
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MBFTC 0L AS 

SUBROUTINE BLAST(KPRTNT) 

COMMON/BU*/ AVEHTiAVPw^.AVEW^AVPL^HMAXtAl ♦ A? . A3,A 4,A5♦Dl»02»D3«04 
! f 0S,w! ,w?,W3«wA,w r »,<A.A^O - i'«DiSMA*.D£LTu,r ACTj ,F A"2 , |nDx c'5) ,aAA (5) 
2,1NDX 1 .INDX2,P f RPin, POPDN,R£AC5I .«EACST,P?Af i.v 
CO M MOM/BlK6/ p% TQ.di,oOnA 

common/ 8LX7/ w-:,BEPrwr (io» ’.pobIldUo) »BU!Lnw«io> «0!LriTno> «CONPrR 
1(10) »BTL0»JT tlO) tPOSPRoO) «PQSPRI <3>«NFL(10> «AI ntpl <m«EX°l<lO). 
2PBPEAX(10),!WALLT(10),!BT(10)»PEPCOA,BILPHT()0) 

COMMON/BLk 9/ OHB«rinYB.nwy:B«DMTO»nDYTO.DWKTO»r)MTHTO.OMTI .PCYTI ,CWxT 

1!tOMTHYT» 0 MD*DPyD#rw<n»DMTO, DH.nD«nw,D M 
COMMON/BLX 13/ Avrwr'>.PAOOi°ADN,nHBO.nnBO»DMBO»PHBI .rmr «rMBl , 

1 no I ON I ♦nWI'iNT « f iM!ONI ♦nniONO,nW!ONO»D M TONO 
C CALCULAir «*FRCONT or P.LAST CASUALTIES pop each time to death for 
C OVERPRESSURE 

c 

DHBOSO.O 
00 * 0 = 0,0 
PMBOsO.O 
DHBI=0.0 
DOBI=0« 0 
OMBI so« 0 
c 

C OUTSUIF CONTRIBUTION 

c 

IF(PONA.LE.37.*) GO To 156 
PEROsl.-BFPpTN/lOO. 

PE90-P f ro/ ton, 

OWBO=BLASTM(PONAH»PrRO 
ODBOrBLASTD(°ONA)BPFRO 
nMBO=BLASTM (BONA! ««>FRp 
C 

C INSIDE CONTRIBUTION 

PEP=PERPIN/1.E6 
no 157 I-1«NN 

!F(POBTLn(T).LE.37.B) GO TO 157 
p OB= p O n ILC'T) 

OMR I sJJMB ! *°L A S T H f POP) bCONPFr < I)«PER 

p iPPI = C n R * + *'. *.S T D (POB) bCOwpFP (I > «PER 
PMBTsjvib t ■_ V3 T M (ppp ) or?**? R < I) oP ER 
1S7 CONTIniif 
156 CONT!N'--r 
RETURN 
END 




M&F?C H 

FUNCTION BLASTM<Pj 

OI*FNSTON •‘<(21) 

BATA (*»k (I? , t sl.2n/3*0.0,37 l 5,40.0,A3.5.47,,S0.5.55.,58..63.5, 
16«.5*7A.0.7ft.5«83.0,87.5,93.0.100.0.107.5»117.5,130.0/ 
1£(P.LF.3?,5> GO TO 5 
IF \r »Gr,*jf!.i “G Tu 6 
DO 1 1*5.21 

IFJP.GF.PK(1-11.ANP.P.LE.P* (I)) GO TO 2 
1 CONTINUE 
GO TO 6 

? PUSTHapK (T-n«5.«|P-PK(!-in /<PK < T )-P< (1-1») 

GO TO 7 

5 BLASTHaQ.O 
GO TO 7 

6 BLASTHnlOO.O 

7 RETURN 

end 


SlOfTC 0 

FUNCTION BLA5T"(P> 

IF(P,L7.A0.01 «LASTP=0.0 
lF(P,GF.Ao.0.ANn,P.LT.65.01 BLAST0s35,0 
IF(P.GF.65.0.A K 'D. P .LE.130.0) BLAST 0--0.5 38*P*70 . 
IF(BLASTO.LT.0,0) PLASTDsO.O 
IFIBLASTD.GT,100.0) BLASTD=100. 

return 

END 


SIBFTC M 

FUNCTION BIASTM(P) 

IF(P.LT.AO.O) "LASTMsq.O 

IF<P.Gf.A 0,0.AM15,P,LE. 120.) BL A STMs 100,-BL ASTH (P1 -BL ASTD (P) 

IF(BLASTM.LT.C.O) BLASTMrO.O 

RETURN 

ENO 


254 










.1 


i 



1 

1 

1 

1 

II 


■SIPTTC BLS^S 

SUBROUTINE ALS^IS (< p: »f NT) 

CU-i-ON/PlK l/ T 5.PFE r * p FTS»PD«T0»CnF«Q0.W0U.T8*PBTB»CC o 
CO«KON/BUC?/ GZX.GZY.XN.YN.SS.$N,$W,SE,S1,S2*PHI 

common/rl<a/ AVEHT,AVs^t,A v£W, a«EL.HMA* . At . A*.*3?A*, a*,??! .ng-Dj.** 
1?L 1 5»W1,wP,W3,W<*,W5,^A,Atct« 0ISMAX?DELTD»FACTJ ?FACTZt*^r!X <5^? AAA I«5J 
2.i«nxi,iMox?,prRP T s. popon.reacsi.peacst.reacly 
COmMON/RLKA/ »n, TO.RI ,'“0\A 

COMMON/BU7/ nn.PERCWt (1C! ‘pneiLDUO) .BUILnW(lo) ♦BILf'L T (10) ♦CONPE» 
1(1C)* M T L tn Qi.P05PR0(3). p OS p PI(3) .NFL( 10).AINTRl(10) .EXRL <10). 
2PBBTAK »19> * JWAI.LT '10) . JB* (10) . p FRCOA,B!LDHT (10) 

COMMON/BUtQ/ 0' J R.nrjvn,nWFB*? u ' , 0?rUVTO,nwFTO.nMTHTO.O UT I.nDVTI ?DwXT 
IT »n«THTi «DHDfO n vn,rjVKn«DMTn, f)u,pD.DW.D M 

COWMON/ftLKU/TT J. . T IO»DII .HlO.FT I.FJO.RIT .RIO.TliNINJ.TFATAL.TAINJR 
HI M E v 3 f 0N AO (3) -)AP(S) ,aR (3? • A 3 ( 3? .AT (3) »AU(3) .PVELd.10) « VEL (10) • 
1PV"L T nn.J.|A) , o?oftPH ( 10 ) •PROP'PO(IO) . p RDBDW<10> »PROPPM(10) »AV<3> 
DI M E M S!ON TI VE». :3.10> .PRC*! (10) 

OAT A < AO(I) . IS? ,?> /«e,T«s.3.P,O.A33/. (AP(I) tial ?^)/3»l .33/, (AR (I) , is 
11.3)/1,0*1.5A.S.7 */,(AS(t;*1s 1,3)/".2«,0c667,2,63/.(AT(I),I=)«3)/ 

23■1 A,0•6 33 « 0.55/» < AU(!}»'=1.35/S.57.5.3?.6.57/ 

PATA (Av(I)«I=1*?)/ft»,3,.2.5/ 

C 

C CALf.PLATF "LAS r DISPLACEMENT EFFECTS ON OUTSIOE 
C 

JPRINTrO 
DO 5 1=1.3 
DO 5 .1=1.1" 

PVFLU»J)="." 

DO 5 Ksl.lO 
5 PVELI(J.T.X)sO.C 
PD=PONA 
DO SO 1=1*3 

IF(PnsppO<T).LF.o.O) GO TO 50 
IPRINTsl 

H=AO( l) 

XL=AP(T) 

WDTHCAP(I) 

ALPsAS(I) 

GAMsAT(I) 

X J = AI) (I) 

FT A = A V ' I) 

CALL D’SPLA(M,vL.wDTH,ALP,GAM, X J.ETA,nELTD,VFL.XPRINT) 

DO ISO J=1.1P 
PVFL (I .J5=VFL U> 

15P CONTINHF 
SO CONTINUE 

IF(.NOT.(KPRTNT.Gr,0 .AND.(PRINT.Gt.OJ) GO TO 6A 
WRITF(A,151) 

1 Si FORMAT<40H00"TSIDE p COPLE VELOCITY MATRI X(FT,/SEC)/9H0DISTANCE.7X. 
1 AHSTAMn 1 M G ,SX.7MSlTTTNG»9X.5HLYIN5///) 


755 







DD s O* 0 

00 153 JSU10 

DOsno^ofirn 

IF(KPRINT.GT.O) WRITE (6. 152) DO« (PVEL <I*J> .1*1*3) 

15? FORMAT(in «4F14.6) 

153 CONTINUE 

calculate blast displacement effects on inside of buildings 


68 IPRINTSO 

00 160 1*1«NM 
PD*POBTlD(1) 

01SMAX*AMAM <81L0LT<I),B1LDW1<!)> 
DELTD=ni5MAx/lD. 

DO 61 J=1♦3 

JF(POSPRT(Jl« L F •0 *0) 60 TO 61 

IPRINTsl 

H*AO(J) 

XLsAP(J) 


WDTHsAP(J) 
ALPsASJJ) 
GAMsAT(J) 


XJaAUfJ> 

ETAsAv(J> 

CALL DT SPLA(M,XL»WDTH,ALP,6AM,XJ*ETAiDELTD«VFL,KPRINT) 

DO 161 JJsl.10 

PVELIU.J.JJ)SVEL(JJ) 

161 CONTINUE 
61 CONTINUE 

IF(.NOT.(XPRINT,GT,0,AN0.lPR!NT.6T,0n GO TO 160 
WRITE(6.16?) I 

16? F0RMAT(3?H0INSTDE VELOCITY MATR IX I FT,/SEC)/14H00UILDJNG 

10DI5TANCF»TX.8HSTANDING«AX«THSITTIN6»9X,5HLYTNG///) 

00*0.0 

DO 760 J=l.lO 
DDaDPtHFL TP 

IF(XPRInT.GT.O> WPITE( 6 *15?) OD.<PVELI(1♦JJ*J>♦JJ = 1 *3> 
760 CONTINUE 
160 CONTINUE 


type . 13 / 9 H 


CALCULATE PERCENT of BLAST CASUALTIES for EACH TIME TO DEATH FROM 
TRANSLATION - T NOOORS 


TllaO.O 

DHTsO.P 

ODYTsO.O 

DWKTsO.O 

DMTHTaO.0 

DO 163 1=1.NN 

DO 163 J*1 1 3 
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c 

c 

c 

c 


no iA 3 jjsi« 1 o 
**VCONsp v c L * ( t ,.i, JJ) 


°VC0NSsB t 9An$(pvC0N)/10C. 
aveppd=p''spr i c .•) «con»fp (I , «pvcons/i ,fs 

T IsPCONIfPVC^N)/loo. 

IF(PVCPNS.GT.O.C) TIrl.o-PVCOMS 

TI TsT T T*Tj «»ospp r(j• j C nM P ep{J)/i,£5 
TF<PVCr>N$.lE.O.n> GO TO 163 

Jr!2w22*M’ T * 0 ‘°‘ ANr - PvCON5 *L T *o»i> GO rn n* 
nW«.5f ( °,|.W,Fv c !iN5,i7,o,5| GO ?0 166 
*' < p VC^NS.r,r,o.5.AV",PVCONS.LT.0,9) GO TO 167 
PHTsPHT*A vFp°r- 
60 TO 

16* nMTHT*PM T H T + AVr pop 
GO TO 

1A A DWKT = DWKT*-AVF'P C 'D 
GO TO 163 

16T ODYT = D f1 Y T «-Av r P c 'n 
163 continue: 

I^tDHT.CT,1,0) PHTsl.o 
TFIDDYT.r.r . 1 ,Q» OPy t = 1,0 
IF(DWKt.GT.I.O) OW)( < r=i.o 
ir(DMTMT,r,r.i ,o) pytht^i.o 
nHTi=nwTop»;$PIN/lC0, 

DDYTIsnnYT«»PR»IM/100. 

PWltTIsnwfTOPFR 0 IN/109. 

DMTHTI = DMTHT»P r ftPTN/loO, 

T 11 sT I ToPfPpTN/no. 


CALCULATC PEPC^NT 0 r plAST CASUALTIES FOP EACH TIME 
TPANSLAT10- - o UTn0*Rs 


tio=o. r* 

OHT 

DDYTsO.O 
!)'<•'*’ = 0.0 
OMTHTro,p 

no 166 1*1,3 

00 16A J=i,10 
PVLs p yr L U,J) 

TlVELlT.J!»PCO k, !(PVL)/iOO, 

1AA P Vfl U • J > *BT° A‘\s ( p\,» ) /100« 

HO 1*9 I»l,»n 
°»0B J(I)*0,0 
B = OBPHm=0.O 

PR 0 PP 2 f p sO.n 

ppoe n wmso.o 
PPOPPM f I) a<?. 0 
DO 169 J=l,3 

ANPvFLsPVEL(J* I)PPOSPRO'J)/ICO, 


TO OF ATM FOR 
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AMPVELaAWpVEL* < 1.-PfRPIN/100.1 
TIsTtvri. (J»I) 

fFCPVCLCJ*!).GP.0.O) TIsl.O-PVfL<J,I) 

PR06I (T) rpRO*t 1 1) *TI»POSPRP< J>*U .-PERPIN/100.) /100. 

iFtPVEt (J.I).GF.0.91 GO TO 170 

If . PVEl(J»T).G r .0.51 GO TO 171 

iFfPVEl(J.T).GE.0,1) GO TO 172 

IF (P V F L <J«!)« G r • 0 ♦ 0) GO TO 173 

SO TO \bf 

1 TP PR0P0H«nsPpOB r H<n+ANPVPL 
GO TO 169 

in psoann <11 =p« 0 B n n<n ♦anpvfl 

GO TO 169 

172 PRORDwm=PROBPwn>*ANPVEL 
GO TO 169 

173 PROBOM(!1sPROB n MU)*ANPVEL 
169 CONTINUE 

IF(X. A*FQ«0> GO TO 1 AO .. 

DELTOsAmAxI (Pi.02)/10. 

OELTSsOELTn 

01“01«’. 

D2*D2*?.-Sl 
K AAsO 

IF(OI.GT.UP) K A As 1 
IF(KAA t FO.O) GO TO 1 
DELTOsni/l". 

INOXlslO 

IN0X2=n2/niol0.i>0,G 
GO TO A 
1 OELTflsTlp/lO. 

INDX2=10, 

IN0Xl=ni/0?»10.>0.5 
3 IF(INQXl«GT,10) INOXlslO 
IFUNDX1.LT.1I INOXlsl 
lF(INOy?,GT.10> INHX2slO 
IF(INDX2 ,L t . 1) INDX?=1 
FACTlsnElTP/ATOTPWl 
00 174 IND=l.INOXl 
TIOsTIO^PROBT uno)«facti 
OHT seOHT + PROBTIH ( IN01 «FaCT 1 
ODYTsOnYT+PROBOIH INTIoFACTI 
0WKTsDWKT*PR0B"WUNP>«FACT1 

174 DMTHT=rMTHTf«*R^BnNUNn)»FACTl 
FACT? = ’iELTn/AT0T«W2 

DO 175 IND»1«I«DX2 

Tin = TlO**R"BI (IND)»FACT2 

DHT s riHT*PR0BPH(lNn)»FACT2 

0DYT s DnY T ^ ,, ROB n i1(lNn)»FACT2 

DWKT*0WKT^PROB r 'W<INr)*FACT2 

175 DMTHTsriMTHTt-PRrHnK'(INn) »FACr2 
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D£LTO=nn.T<; 

60 ro 1fl «> 

IftO DEL t 0=am 4*1(01«n?,o>,p 4 ,n5)/10, 

TNi r 'y«2i=n^/[)C(_'r5^o!s 
INpX<3)s:R3/D e 'lTD*R.5 
TN^X < sf'4/r,Fi. 1 'r)4.0. S 

!MPX(5^3l55/i? r LTo+r! t 5 
AAA<l)swl*PELTP 
AAA (?) sw?»On.T r ' 

AAA ( 3 ) rw?»P£<. T” 

AAA(4)swAeOfLT^ 

AAA <•>) ew^« , OElT n 
i i = i^ 

FACT = AAA<n/AT«T 
TN'OPXsTNOX < r ) 

7F( iml'px«g t . io' inpfx=io 

IF«!Mtirx, l T . 1) INOrvai 
DO 181 IHIlsi, INDEX 

t 10sT i->4.PRPfli ( T N 0)oPACT 
nHT = nnT + e RP>flnH f J NP) ACT 
DDYT=n r 'K ,T + D R^!3PD <IMP)«FACT 
DWK rsDwK T * B P°O n W<IMP)«FACT 
1 ft 1 nMTHTsnM'rn T *PR r, RDM( !Nn)«FACr 
1«5 CONTINUE 

OUTsl.O-PERPTM/100, 

JFtOMT.GT.OuT) OHTsOUT 

IFI0nYT.6T.0UT> PPYTsoUT 

T F ( DWKT. AT •O'.'T ) PwkTsO'JT 

IF(PMTHT.GT.^UT) PMTht=0UT 

DHTOsOMT 

DDYTOspHYT 

PWKTOsnv,XT 

DMTHTOsDMTHT 

OD=0,0 

RETURN 

END 
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*!PFTC OIS?L 

SUBROUTINE DTS B lA (M,X|_ ,yW IDTH,ALPHA , GAMMA» XJCG, ETA, OFL TD» V^L,KPR JN 
IT) 

c 

c pfople displacement 

c 

COMMON✓ BU1/T$.PRFE,PFTS,PO,TO,COF,QO,WOU,TB,P8TB,COB 
DIMENSION C< t2),Y (2) ,YP<2)«YPP<2)»YQ(2).YQP(?).YR <2),YftP<2> 
DIMENSION VEt(l) 

301 KPLOTsn 
FFslOO, 

n = 0.0 

C1*0»0 
WE TGHTs160» 

XMljsO.M 

COFsO.5 

CDOs-0.5 

<D=1 

FDISTsDELTn 
IPOS-O 
IPOSIsD 

1F(VWIT'TH.GT, 4,0) IPOSsl 
PI*4.*«TAnU, ) 

DTa.OODl 

ANUsATANULPMA/H) 

PXYsSQPT ULPMA«At.PHA+H»H) 

IFHP0S.FQ.1) »xY=h 
IFIH-XL/2.)3,4.4 

3 S®H-C1/?• 

GO TO 11 

4 SsXL/2. 

11 PHJsATANULPHA/GAMMA) 

XJ = XJCGfWETGMTo <AL°HA»ALPHA^GAMMA«GAMMA)/32,2 
D0=H/2.*C1 

PREE 3 2,pP0P(7. # 14.7^4.»P0)/(7, tt 14«7+Pn) 

D=DO 

F0-1A4.OPRFE4XLPH 

QO=5./?. tt POtt«»o/(7,ttl4,7+pO) 

Usll38.*U.«*6.«P0/<7.ol4.7> ><*"0.5 
TS=3.»S/'I 

TBa<VWlDTH>ETA«S)/U 

tm*amaxhts,tb> 

tsto*ts/to 

WOUsVwIDTh/U 

pFTS 8 Pn<»U.-TST0)*FXP(-TSTO)*CDFPQ0<Kl,-T5T0H»o2p£XP (-2,»T$T0) 

TBOTOs(TB-WOU) * (TO-WOU) 

PBTB=PO«(1,-TB^T0)«fXP(-TBOTO)^CDBPQO*(1.-TBOTO)‘k»2«EXP(-2,*TBOT 
10 ) 

XMswEIGHT/32,2 

XTTESTaO 
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XLfisSQBT ( ALPHA**2«-&AMMA<M>2) 

NL =50 
KOUNtpsi 
i T'^C^&au 
KTZEPOsO 
f t=fo 
c 

r. SET BKG COFFFKIFNTS AND INITIALIZE TIME 

r 

cni«Dt/?. 

C (2)S1. 

CIJ)«CIH 

C(5)s1,-SQRT<0,5) 

C 14)=C (51»0T 
C (ft)=C ('■*) 

c <*i= 2 ,-r.(S) 
cm=cr*n»nT 

C !9)=C<71 
CdOts^T/6. 

C(11>»0.*313333 

C(i2)«rn> 

t=o.o 

FPSsDT/2, 

IF(KPRTNT.LE.O) 50 TO 30 
WR.ITF (ft,7) 

7 FORMAT (1H ,4WTTME*ftX,4HPRE$*8X*4HV< 1) *GX,4MY (I?) ,ftX,5MYP (1),7X*5 HyP 
1 ( 2 ) , 7 X. 6 HyPp ( 1 ) , 6 X,ftHYPP( 2 )/ 12 X,?HXH,l 0 X, 3 HXHn, 9 X, 3 HTHP.‘?X» 3 HxCG .9 
2X,4HXCr,n> 

C 

c 5 iTDlNr, A W n tipping Computation 
C 

30 00 140 1 * 1*2 
Y (t)*0,0 
YPUJSfl.Ti 
YQ(I)=0.0 
I4fi YQP(I)s0,0 
MOTION* 1 

40 IF (ITMCHG.NE.O) GO TO 73 

IF((T*FPS>.GE.TM) CALL CHTIMF(C.FPS*ITmCMG.DT) 

73 DO 141 Ks 1 *4 

1 FU- 1 ) 142 * 142*143 
14? IF(T*E0.0,0) f,o TO 1*3 
PFTT=PFT(T> 

PBTTSPPT(T) 

FT = 144 .<j f PFTT-PBTT) *H»xL 
143 K3=3»X 
X 2 SX 3-1 
<1=< 3-? 

IF(1P051.E0.1) GO TO ft 

IFf.NOT.(lP0S.FQ.l.ANn,Y(2>.IT.O.O)) GO TO 1? 
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YP(2>s0.n 
YQ(2>80,0 
YQP(?)sq # 0 
IPOSJsl 

1 ? BETAsPmi-v( 2) 

YAsxifi»C^S(BPTA)^XHU«XLP«SlN(BFTA) 

YHs*PY-x M 'J»wr!fiHY) / vM t xLS«Y?»2»Hwa (*} *( XM'J*CCS if5ETA) = 5I\‘fSETAl S 
YCsXLR*COS(BFTA) 

YDsXJ/XM 

0=iH/2.»r1i«COS <Y!2i)♦ IVWiDTH/Z.-8)«SiN(Y <2)) 
Y£8(PT*D-WFIGHY«XLP«S|N(PETA))/xM 
YP«»(l>s<Ye«Yn-YEOYA) /(YD-YA«YC) 

YP® <2>s<Y8*YC-YE)/(YAoyC-YO) 

IF(YPP <?>.IT.O.O.ANP.T.EQ.O.O) MOTIONs-1 
A IFUPOSl.EO.n YPP U )sFT-XMU*3?,2 
IF(IPOM.EO.l) YPP<?)sO,0 
XHsY( n♦PXY^SIH(Y(2)-ANU) 

XHD=YP(1>»QXY«YP(?H»C0SIY(2>-ANU) 

YHOsRXYoYP<2 )tN(Y<2)-ANU) 

THtlsSORT ( XHn<»XHn*YHn<»YHD) 

XCGaY(1>^XLR»STN(Y(2)-ANU) 

XCGn*YP<I>*XIR«YP<2>*COS(Y<2>-ANU) 

!F(K»Nr.l) GO TO 16 
IFUPftTMT.l E • 0> GO TO 125 

WOJTE<6.6) T»FT*y U),y C2)»YP(1)•YP<2>♦YPP<1>«YPP(2)•XH» XHD,TND,XCG 
1« XCGO 

6 FORMAT fIH *F«.4,7tlX»Ell.4i/1H ,AX,5(iX.EU.4)) 

125 CONTINUE 

IFUP051.E0.1 .ANn.THD.LT.10,0.ANn.YpP(l) .LE.0,0) GO TO 19 
IF(MOTIoN.L T,0) GO TO 21 

23 IF(A8S1Y<2>).GE,PI/?,) GO To 15 

20 iFIXCGn.tT,0,0) GO TO 19 
IF(XH.LT.FniST) GO TO H 
VEL<«U)=Th" 

KD=KD-M 

FOISTsFniST^nELTO 
IF(XD.GT.IO) GO TO 1A 
GO TO 16 

21 IF < YP < 2)»GT,0,0) GO To 2 2 
IF(KTTFST.Fq.h r,0 TO 20 
GO TO 2.3 

2? KTTFSTsi 
GO TO 23 

19 DO 24 Ilsxn.io 

24 VEL(II)=n,n 
GO TO lft 

15 DO 17 *isKOt10 
1? VEl(TI)=THD 
GO TO \s 





1C. *0 562 1 = 1.2 

YRHlsf <Kl>*vpf 1)-<:««?> «VQ< I) 
YU)=Yf|>*Yft<n 

YQ ( n =Y0 m 0.«VR u ) -c (K 3 ) «YP (!) 
YRP(J>rc<<l)»Yt»P(t)-C(if.2)ttYQP(!) 

5ft? YQP ( T ) sYOP ( M ♦3]«YRP d )»c (K3) «YPPU) 
GO T0I146.U1 tlM.Ul) ,K 
14ft T=T*r(]) 

141 CONTINUE 
GO TO 40 

la return 

ENn 


ftOFTC PF M94.XR? 

FUNCTION PFT(T) 

c 

c PRESSURE on FPONT face 

c 

COMMON/BLK1/TS.PREF,PFTS,PO,TO,CnF,QO,wOU.TB,PpTR,CDR 
IF(T-TS11,7,2 

1 PFT=(PFrS-t>REE> oT/TS+PREE 
GO TO ft 

7 IFCT-TH)3,4,4 

3 PFT=P0«(1,-T/TO)»EX«»(-T/TO>♦COFoOO*( 1 .-T/TO)(-2.«T/T0) 
GO TO ft 

4 pFTsO.n 
ft RETURN 

FNn 


$T5FTC PP M94, X° 7 

FUNCTION P«T<T> 

C 

C PRESSURE ON BACK FACE 

C 

COMMON/BUl/TS,PRFF,PrTS.PO,T0,CnF,OO,w0U,TR,PBTB,CnP 
IF(T-WOIJ) 1,?,2 

1 PBTsO.O 
GO TO ft 

2 IF1T-TP11,4,4 

3 PBTsPBTPO(1,-<t-TP)/<W0U-TB>> 

GO TO ft 

4 IF (T-TP-W0'I)S,T,7 

5 PBTsPO*: (1.-(T-WOU)/<TO-WOU» ) »EXP (-(T-WOU) / (TO-wO!]> )♦CD9«G0<M 1<T- 
1W0U) / (To-WOU) l«>o2*FKP<-2,P<T-WOU) /(TO-WOU) > 

GO TO ft 
7 PBTsO.O 

6 RETURN 
END 
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«IBFTC CHTIM m«»4.XP7 

SUBROUTINf <C«EPS«!TMcHG,D in 

dimension cm 

DTsO.O! 

EPSsO.no*! 

CCUsDT/?. 

C 

C ( 3) —C < 1) 

C(*S)s1,-SqRT(0.3) 

C<4)eC<5>*nt 

C <6> »C(4) 

C<8>«2.-C<3> 

C (7) »C <8)pHT 
C<9)=C<7) 

C (10)mT/’6, 

C<11)=0.73*33333 
C<12)=C<1> 

RETURN 

END 


SrRFTC BT 

FUNCTION BTRANS (PACVELl 
PACVFL = ABSCPACVEU 
IF(PACVfl-?3»)1.1.3 

1 BTRANS=O,0 

2 RETURN 

* IF(PACvEL- 35.)^*4,4 
4 RTRANS=lO0.0 
GO TO ? 

3 IF (PACVFL .OT ,2 ,; .0.AND,PACvEL»LE. 81#0) BTRANSsl,6T«PACVEL-4l. B 
!F(PACvet.GT.3l.0 .AND.oACvEL.IE, 41.0) BTRANSsB.0»PACVEl-238. 
IF<PACVEl.0T.4»,O.AND.PACvFL*lE,55,OJ BTRANSaO,715»PACVEl*«»0,6 
IF(8TRAn5.LT.0.0) BTRANSsO.O 

IF(BTRANS.GT.lOOtO) BTRANS=100.0 
GO TO ? 

END 


$1BFTC PCON 

FUNCTION PCONI(V) 

C INJURY C"RVf FOR BLAST TRANSLATION 

PC0NI=?0.*V-?0f. 

IF(V.GT,IS.) PCONIs 100. 
IFIV.LT.IO.) PCON1*0»0 
RETURN 
END 
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I 


TT**FTC DfB» 

COMMON/BLKV W , .HR , . , VlstxO,FFR^I^f , E N »!jiftSN,TOtl»Y 

CO-MOM/H'.K*/ ftVEHT,fcVFWT.AvEW*AvFL,HMAjl,Al ! A2,*3 : A«.A5.01,D2,D3,C4 

l,05%WU*C?,W3,W6,W?,KA,ATOT.D!SMAX»nELTD«r^Tl%r JC.2..«u--&- 

2 *INOXl«INUX?,PERPTN. poPDN.REACSI«REACS.*PEACLY 

JSTSirS^sT-s^SlIfuShswiiJiJfvi^ississ^svTwsisssr:'" 

JJmem .1".. IW»'-LT. 10,. »tooi .;e.co».MioHj<io, 

O^^^DHT^^Jjo.SwKTn.nHTHTO.DHTl.DDVTl.^KT 

UIhSmIo oo!"'i«5l«*Ul» •mSTIlOO! .VCH( 1001 .P»0»DHC10) ,P»08DD. 101 

*S"?5§iSl°i;"52S«i”iiS!tSJ«ioTii5SSSn«2».i*o B M.tio» 

UJ=lo3).IsT*3)/5.7(,,3.76»0pCi3.7fS*5 tt 0»0/ 


COMPUTE HEATHS DUE TO OUTnOOR HEARTS 


TMAX*S0flT(MM«X/l6.0«) „ , U1< 

iFOCPRtN^.r.T.O) WPlTrC6*302J TMAX - ec) 

M2 FORMAT (3 f *H0MAX T MUM time OF DEBRIS FI.1GHT «F12,S,4H SEC) 

OUTSIDE HEARTS FROM OUTSIDE WALLS 

IFKA.FO»0) HO TO S 
ATnTsSI<»S2*2« n < S?.*AVEW*S1*AVEI • 

W DTHsAVFL»SIN(PHT)*AVEW<»C05(PH! ) 

AGLTsS) P5IM(OHI5*S2*COS<*>H1) 

DELTDsAGI.T/10. 

GO TO 6 

e, o f L Tns AMAXl < n l «D2 ,D3«D* »H5) /10 , 
iMDxa)=m/nEL T 0-0.5 

CALL TPA.I (W,PO w AiPAn»ntST,TMAX*VEH> 

INOXlZl^a/DELTD + O.* 

INOX(3)=03/OEL T 0*0.5 
tMnx<^<= n 4/DEL T 0*0»5 
INnX(5)=n5/D p E T r*0*5 
AAA< 1 )sw!*DELT r ‘ 

AAA(2)sv9?onELT^ 

AAAI.31*sW^*DELTr 

AAAfAJswAoHELT" 

AAA (S) s*5*>PELTO 
6 CONTINUE 
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DO 21 T=l«10 
PRORIIfIlaO.O 
PR0BHD(I>=0.0 
PROBDY(1)=0,0 
PR08WD< T)=0,0 
21 PROBMU <I> =0,0 
010*0 ,n 
DHOsO.O 
DDYOsO.O 
DWIC 0=0,0 
DMTD=0,0 

PEROUTsi.-PERPTN/100, 

C 

C CALCULATE- ^STANCE, VELOCITY ys, TIME RELATIONS FOR EACH SIZE 

c 

DO 200 1 = 1,9 
DO 211 IL=1,NN 

lP(PPERTR(IL«n.GT, 0 . 0 ) 00 TO 212 

211 contjnhf 

GO TO 230 

212 RADaRAntlls( I) 

DO 205 J=l* 10 
PROPI t J)=0.0 
PROBDH(J)=0,o 
PR0BDD(J>=0.0 
PROBDwUJsO.O 

205 PROBDM(J1sfl,0 

IF(KPRTNT,r, TfC » WRITE (6,30 '» R AQ« (II 2 « Dl ST < I! I) , VEH <1II) «IIIsl »100 
1 ) 

3o3 FORMAT(16H0PARTICLC RADIUS»F10.2/39HQDEBRIS DISTANCE-VELOCITY RELA 
iTI0NSHTPS/5H0TlME«7X,4HDlST,9X»8HVEL0ClTV/(ix,l5 f 3X*F12«2,9X*F12 t 2 
2 ) ) 

C 

C FOR EACH INCREMENTAL DISTANCE,DQWNRANGE »DBTA|n AVERAGE VELOCITY 

C AND RANGE OF TTME(RANGE OF INITIAL HEIGHTS) TO GIVE THIS VELOCITY 

C 

DO 920 J=l,10 
DISTI=FlOAT(J)«DELTD 
IF(D!STI,GT,niST(10O)) GO TO 920 
lF(DISTI, L T.niST(l)) GO TO 20i 
DO 202 K=2«100 

IF(DISTI,LT.D1ST(K).AnO.DISTI.GT.OIST OC-1)) GO TO 203 
202 CONTINUE 
201 VMINSO.O 

VMAX=VEH<1) 

VAVE*VMAX/2. 

TMINsO.O 
K = 1 

GO TO 20A 

VMAXsAMAXl (VFH(K) ,VFH(i(-l) ) 
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VMTN = AMJ *1 (vFHU > ^VFH(ic-n) 

VAVEsiVM.Ax-vMl*-') '2. 

TMJMsTmAX/ 1 Ott.'^L^AT !K-1) 

pn<. TMVcTMIA V/ 1 ftn _ «r^rf. r t it\ 

C 

c FOP r Arn B ,, !lO , NG TV»f. *M0 EACH TORSO POSITION FIND THE MAXIMUM 

C PROP. «F 0* AT« I*" FACH time TO DE a TH CataGOky FOR EAOH INCREMENTAL 

C OISTANfF 

r 

TO «?0 L = l«N k ! 

?F(PONft.LT.onBFAX(t)> GO T n A?0 
NFLS=NFL <L) 

FKTsPIl rjHT'L)/ r LOAT(NFLS) 

no ?o 

IF ( T M I , 1. T • 0.2 4 9 3) 0 0 TO 2l7 
GO TO 219 

217 PVFLAsA.mAxI (PO r RPnvAvE.RAIJ,l) ,BPEBP E *VA VE , R *0, 2) ,8DF8REfVA9E»RAp, 
III) 

PVELlNsAMAXl(BTRAM1 (VAVE.RAd, 1).PTPANI(vA vf, eAn,2>,BTRANJ(VAV£,«AO 
1,3)) 

VlMjMXrPVELIM 
AMAXPPsPVELA 
GO TO ?n 
219 AMAXPPsO.O 
VlNJMXrO.O 
DO 109 Ns 1,3 

NFsRlLOHT(L)-A w ANHT(M, N) 

no 20 '+ <=i,nf 

HTFsK 

THsS0RT(MTF/16.0?S) 

IF(TH,LT.TMI‘J) r,G TO 204 
PVEL AsnnEBRF. < VAVF,RAn,N) 

AMAXBpsAMAM ( P V EL A , AMA XBP ) 

PVFLINsBTrAnt(VAVF.RAD.N) 

VINJMXsAMATlfPVEL!N,VINjMX) 

IF(TH.GT.TMX) go to 199 
204 CONTINUE 
199 CONTINUE 

213 IF(AMAXrP.LT, 0.0) AMAXRPsO.O 

pvela=amAx r p 

DDFBSPVFLAPCONPFR (L) opO*.*'cO <M) OPPERTB f L • 7) /\ .Ep» <1.-P£RCWl <L) /1O0* 
1) 

n I N J= 1 0|J . - p V'F L A 
IF(PVEtA • L r . 0 ■ 0 ) 0INJSVINJ M X 

PROP! (.J)spoo«>t fj)*niNj»cONPER<I)PPOSPROIM) *PPErT6<L»T>/I»E8<M 1.-PE 
1RCWI(I)/TOO.' 

!F(AMAXPP.' T.l*'.) GO TO PlO 
JF (AMAXP*', 1 . T,50.) GO TO 207 
IF(AMAvn«>.LT.90.) &o to 2QA 
proboh{j)spr^b^hi j )♦odes 


267 









60 TO ?o 

?0B PRORDDfJ>s*»ROBno(J)*DDEB 
60 TO ?0 

207 PROBDW (J) sPRf^B^W U) +DDEB 
60 TO 20 

210 PROBDM (J J sPRftBDM < JJ♦DDES 
20 CONTINMF 
A?0 CONTINUE 
*>20 CONT!N"E 

DO 22 Jc1«10 

PROBTI(J>sAMAX1(PPOPII <J)*PROBI(J) > 

PROBHD(J>sAMAX 1(PROBHniJ> *«»RO&DH< J )) 

PROBDYU>=AMAX> (PROBDY(J) «PROBDD(J> ) 

PROBWD(J>sAMAXl(PROBWDU> *PROBDwU) ) 

22 PROB M D(J)sAMAX1<«*PO*MDU> *PrOBDM(J>) 

200 CONTINUE 

IFUA.FQ.O) GO TO 216 
FACTlsn£LTn*WDTH/ATnT 
DO 176 iNnsiaO 

DIOsDIO-cPROBII UNPJ«FACT1«PER0UT 
DHD a OHO+PROBHOUND) VFACTUPEROIJT 
DDYnsDOYD^aROBOY <IND) «FACT1»PER0UT 

DWKDsDwXn*PROBwn<IN0 )»facti*pepout 

176 DMTD = D m TP+PR^B m D HNO)»FACTl*PEROUT 
GO TO 220 

215 DO 216 1*1*5 
FACT=AAAII>/ATnT«PEROUT 
lNDEXstNDX(1 ) 

DO 216 INDaUP'OEX 
DI0aD10+PR0B?niNDl*FACT 
DHO = nHD+PROBHD(IND)«F ACT 
DDYD*DDY n -»PRnBDY (IND) ®FACT 
DWKD»DWKD* B ROBWD n nd>*fact 

216 OMTD*DMTn*>PROB M D < IND) ®F ACT 
C 

C INSIDE DEBRIS FrOM OUTSIDE WALLS 
C 

220 THAXsl.o 

DO 30 Tsl* 10 
PROBII maO.O 
PROBHD(I)*0•0 
PR03DY(I)*0,0 
PROBWDf n»o,o 
30 PROBMD(1> *0•0 
DIlsO.O 
DH*0,0 
D0*0.0 
DW*0.0 
DMzO.O 

CALL TOAMAT|W,P()NA,i.o*DIST,VEH,RADIUS,PPERTB,PPERT!,DISTM,VEHM) 
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no 224 j= 1,9 
no 99 i vsi.in 
PROB T < if) = 0 ♦ 0 

PROROH f to = 0.0 
PROROD f k j sO♦ 

PROBDwdOsn.o 
2?1 PROB'iMU' = 0.0 
RAr>—PA r *T ,, S ( J) 
no 250 1 = 1 .NM 

TF(PONA.LT.PBRFAKn).OR.PP r RTp(I,J).IE.0.0) 60 TO 250 
nElTTIspxPL 

AlFN = A“AX .l (BIl^L T (\) .BIIDWT (!) ) 

TF(IWALLT(T).60,0) nELT0=ALEN/10. 

NFLB=NF| (J) 

FHTsRI( DHT(!) / r LOAT(NFLS) 

no 223 <=1.10 

niST!=FLOAT (OPDELTn 

IF (PT5T1 ,G t * n lSTM(j»loO)) '-0 To 250 

IF(D1S T T• L T .0I8T M (J»1>) 60 TO 22? 

00 225 K T =2. lO*' 

!F(D!STI.LT.ni5TM(j,KI).^Nn.niSTI.6T,DI5THfJ*ICl-n) 60 TO 228 

225 CONTINUE 

22? VAVF=VFMM(J.l)/2. 

TMTN=0.0 
K 1 = 1 

60 TO 227 

226 VAVE*<VEHM< J,<n*VrwM{ J.k I”l) )«0.5 
TMIN = Fl..OAT ( X T-1 )OTHAX/100. 

227 TMX=TMAX/100.*FL0AT<<T) 
no 223 M= 1.3 

IF(TMlN.tr.0,071R77B4) 60 To 228 
GO T<7 ?2<J 

228 PVFLAsAMAXl (BDFR3F (VAvF.RAO.l) , BOEBRF tVAVF. ,RA1%2> .BOFBRE (VAVE,RAI). 
13) ) 

AMAxBPsPVELA 

PVFL IN = A M AX1 (BTRANHVAVE.RATM 1 , BTR ANT ( VAVF,R AD.2) .BTRANI (VAVE.RAD 
1,3) > 

V!NJMX = PVEL1<I 
GO TO 233 
??9 AMAXBP=0.0 
VINJMX=0.0 
DO 235 M=1,3 

NFs(FHT-AMANHT(M.N))«12.+1. 

IF (N F .l.F ,0) MF= 1 
DO 234 XXX = 1,NF 

htf=fl^a t (xko m* 

THsSOHT(HTF/16.0B5) 

IF(TH.LT,TWIN) GO to 234 
PVFLA=«nFRPF(VAVF,RAD,N) 

AMAXBP=AMAX1fPVFLA,AMAXBP) 
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PVELTN=BTRANT <vave.rad,n> 

VINJMXsAMAXI(VTNJMX.P vEllN) 

IF (TH.GT.TMxJ GO TO 235 
2.34 CONTINUE 
235 CONTINUE 

233 IF(AMAXRP.IT.O.O) AMAxBPcO.O 

0DCBaAMAXB'*»CCt'PER(n*P05P ! 5I<M)*P> , CRTB( I,J)/l,te«a.-PC«CWlU)/lOO 

1 .) 

0DEBsDnEP/l0.*nELT0/ALEN»10. 

PVELAcAMAXPP 
niNjsiOO.-PVFLA 
IF(PVEl.A,LF.n,n) niNJ = V!MjMX 

PROBI (X JSPROBI tKWDJNjoCONPER (!) »PO$PRI (M) »PPERTB ( I ♦ J) /1 . E9* (l.-PE 
1RCWI(I)/100.)*rELTn/ALEN«l0, 

IF(AMAXRP.LT,10.) GO TO 24^ 

IF(AMAyB p .LT,50,) GO TO ?47 
IF(AHAXRP.LT.9P.) GO TO 24* 

PROBDH(X)=PROB n H(X)♦DOEB 
GO TO 223 

24* PROBOD(X>sPROBnD(K)+DDEB 
GO TO 223 

? 4 T PROBOW(X)=PROBPW<X)«-DnEB 
GO TO 223 

240 PROBOM(K>=PROBnM(K)*ODEB 

223 CONTINUE 
250 CONTINUE 

DO 31 *s!,lo 

PROBII(K)=AMAX1(PROBIIdO . P R0B1(X)> 

PROBHD(X)sAMAX!(PPOBHD(X),PROBPH(K>) 

PROBOY (X) sAMAXI(PROBDY(X).PROBDD<* >) 

PROBWO(X)sAMAXI (PROBWO(X).PROBDW(K)> 

31 PROB M D(X)sAMAX! (PROBMntXl.PROBPMOO) 

224 CONTINUE 
FACTsPFRPlN/lOn, 

DO 249 Jsl.10 
niIaniT*PROBII(J)»EACT 

DH3DHi-PROBHD(J5«FACT 
DDsDO+PROBHY(J) pFACT 
DW*DW*PROBWD(J)pEAC t 
249 DH*DM+PR09md(J)*FACT 
245 DO 32 J=’ .10 
PROBII (J)=0.0 
PROBHD(J)»0•0 
PRO0DY(JlsOtO 
PRO0WD(J > = 0.0 

32 PROBHD(J)sO,0 
C 

c COMPUTATIONS for debris from INSIDE WALLS 

c 

DO 254 JS1.9 
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DO 251 K=l,10 
PROP! OMSO.O 
PROBDH (K)sf.(' 

®ROP'?D(lOs''.0 

PROP n *fK'=0.n 
251 ORCBr'M/K) aO. 0 
R ADsR At* I MS (J1 

HO 50 Tb!«MN 

IF IPONA .l.T.pPRFAK (I) .AND.POBILD(1>,GT ,BPKHAS. AND. HALLT < 3 > .NE.O.AN 
in.PPFRTTfIo>.OT.O.O) oo TO 51 

IF <P 0 NA . 5 T,PPR r AK(I).AND.PO nA.GT,BRKMAS.AND*IWALLT <I)» N£, 0 •AND,PPE 
1 RTT (I,J>.GT.O.O) 00 TO 5 ? 

00 TO so 

c. 

C. OUTSTDr WALLS n 0 NOT FAIL * OUT INSIDE HASONRY WALLS DO GO 

C 

5! pPsPOBTi.n (T) 

WRJTE<A«35!J I 

151 F0RNAT(<u1H0INSTnE DFBRIS FROM INTERIOR WALLS.BUILDING.13) 

CALL TOAMATtw,»P,l. 0 , 01 ST,VEH,RADIUS.PPERTI,PPERTI,01STM1,VEMM1) 

IF (KPRINT.RT.O.AND.PPFRTI <I,J) .GT.O.O) WRITE (6«303> PAD,fl!» DlST mI 
1 CJ*1I) .VFHMl (J*I II •?Ial«10'J) 

DO 243 11=1,100 
no 243 JJs1,o 

DISTM2fJJ,TI)=niSTMl(JJ,II1 
?43 VEHM2(JJ»IT)sV r H M l(JJ«1I) 

GO TO 
C 

C OUTS I OF WALLS GO AND INSlDt MASONRY WALLS GO 

C 

5? 00 242 TI si» R 
DO 242 Jjsl♦10 n 
DISTM2MI «JJls n lSTM(II,JJ) 

?4? VEHM?(I I•JJ)sy r HM{11•JJ) 

244 deltdsaintrl «n/io. 

ALFNsAMAX 1 (BILDLTm .RILPWT(!1) 

NFLS=NFi < I) 

FHTsBIlDHT(I)/FL0AT(NFLS) 

DO 253 t( = l,in 
DISTIsFLnAT<K)»DELTD 
IF(D!STI,GT,niSTM2(J*100n GO To 50 
IF <DlSTI.LT.nISTM2(j,m GO TO 255 
DO 256 KIs?,100 

IFIDISTI.LT,ni4TM2<j,Kll,AND,DI ST I,GT,DlSTM2<J,KI-l>>GO TO 257 

256 CONTINUE 

255 VAVF>VFHM2( J,l )/?., 

TMINsO.O 
K I * 1 

GO TO 25* 

257 VAVF=(VFHH?(J«KI)*VFHM2(J,<I-'I) ) tt 0.5 
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TMINsFL04T(KT-1)*TMAX/100. 

256 TMXsTMftX/10o.«FLOAT<Kn 
no 253 M*l«3 

IPtTMlM.tT.0.0^1977^4) 60 To 266 
60 TO *69 

?&a i3M LftS6MflXl <BDrftRF:<VAvE » RAU * 1),BnEBRF,vAv E»RA0*2) ♦BPfBRE(VAVE«RAp, 

aha. XSPsP vela 

l p VEL!NsA M AX I (B»RAN!(VAVE,RA Df n.RTRANI(VAvE,RAp,2)«BTRAN1(VAVEtRAD 

VINJMXsPVELJN 
60 TO 273 
269 AMAXAPeP.o 
VINJHXbO.O 
no 278 n=1»3 

NEs (EHT-AMANHT(M*N) > «12,*1■ 

!F(NF.LF.01 MEsl 
no 274 KK<=1,NP 
HTFsFLOA T (K x X )/12 . 

THsSORT(HtF/ 16 .065) 

IF(TH.lT,T^INI) 60 TO 274 
PVELA=»nFF)PE (VAVE«RAD«N) 

AMAXPP=AMAX1(PVELA.AMaXBF) 

PVTUNshTrAni (VAVF.RAn.N) 

VlNJMXsAMAXi(PVELIN^VINJMX) 

IF<KPRlNT t f,T.O» WRITE (6«4Q r ') M,N»TMIN*TH-»TMX,HTF,PVELA,AMAXBP 

400 FORMAT t 33 h M,N,T”IM«Th,TMX«HTF, pVELA,AMAXBP,21s,6E14.5> 

IF(TH,6T.T M X) 60 To 276 

274 CONTINUE 
276 CONTINUE 

273 IF(AHAXRP.LT,0.0) A^AXBPsO.O 

PVELAsAMAxBP 

n!NJ=10(),-PvELA 

IF(PVEL A.lF,n.o) DlNjsviNjMx 

PR08I(X)=PRoPIfK>*niNj#cONPERm»POSPRl(M) oPPERTj (|,j) /1,E9«(ALEN- 
1EXRL(I))/At EN 

DDEB3AMAXBP»C0NPER(! H»POSPPI<M)*PPERTI(I«J)/J,£6 
nDEB=UnE*/lO.«M ALFN-EXRl(I))/AIEN 
IF(XPRTNT.GT.O) WRITE(6»40 I) X«M»AMAXBP,POEB 

401 FORMAT(16H X .M» A M AXBP »DDFB «215,2E20•6) 

IFUMAXBF.LT,10.) GO TO 276 
lF(A M AXB°,LT»5 n .) GO to 275 
IF<AMAXBP.tT,90.) GO TO 1 

PROBOH(X)sFROBnH(X)♦DnEB 
50 TO 253 

1 PROBPDI-X I=PROBnp<X)->DDEB 
60 TO 253 

275 PROBPW(X)sPROB n WtK)*DOFB 
60 TO 253 

276 PR0BPM(K >=PROBnM<tO«-DpEB 
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?53 CONTINUE 
50 CONTlMtip 

00 31 *sl,(C 

PROP li (|(>sAMAX1 (PROP If (K) ,PR0BI (k ) ) 
pK0nnij» K )=4MAX’ (PROPHOdO ♦ PROBDH (K > ) 

PRQBOY 1sAMAXI (PRO«DY<K) ♦PROBOD(K)) 

PROPI^D (K> sAMAXI (PRO«wn #if \ ,Ppnnni,i;n ) 

33 PROPP'D <K)s^MAXl(PROPHD(K),»R06 Dm(X)) 

1MD <K^Ka!i!0) °' WR,TE<6, * 0<i) (K»PftOBHn(K) «MOBOV (K) tPROBWDf K> ,PRC? 
AO? FORMAT i in «I5«AE20.A) 

?54 CONTINUE 

FACTSPFR® IM/ioo, 
no 2?7 J=l,10 
CIlsOI’♦PROBTI(J)orACT 
OHsDH*PRriflMn( j) aFACT 

DO=nn-*pRoanY f j}* r Ac r 
nw=nw*pROBwnf jh>fac^“ 

?77 nM=D^*PRO0Mn(J)oFACT 
RETURN 
FNP 


VPF T C TRAMA 

3UBROU T .NE TRAM at ( w , PO, TM Ax , 0I ST , VfH, R AOIUfi, PRESSO, PRESS I, DI STM, V E 

C0MMON/BUCV NM.PERCWMIO) ’POBTLP(IO) •BUILDWIIO) *61101T (10) ,C0NPER 
1 (10)«BTL n wT(io>«POs K ’RO(3> tPOSPRI <3> « NFL <10) , AINTRL HO > iEXPL(IO) , 
2PBREAK (IP) ♦rWAUTUO) ,107(10) , p ERCOA, 91LOHT (10) 

01 MEN.5 TON OA0I 'JS ( 1> , VEH (•. ) ,DI ST ( j » , D1 STM (9.100 > »VEMM(O,:n 0 ) ,PRFSSO 

1(10«9).PQESS!M0*9) 5 

DO 1 I = 119 
DO 1 Jsl,10o 
DIStm(?,j> so.O 

1 VEHM(I» J)sO,o 
00 A Jr 1 ,9 
RAPsRA^IUSd) 

DO 7 Jrl,NN 

IF(PRE«;sT ( I, T) , GT.0.0.OR.PRESSO<J«I) .Gt.O.O) Go TO 3 

2 CONTINUE 
GO TO U 

3 CALL TRAJ <W,PO.RAO,rilsT,TMAx,VEH) 
no 5 jsiiioo 

DISTM(!,J)=D!ST(J) 

VEHM(1,J)=VEM(J) 

5 CONTINUE 

4 CONTINUE 
RETURN 
END 
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C BP 

FUNCTION Bf)EBRE< VFL.RA0«IP0S> 

DIMENSION PROB»3«3.?l) 

DATA <PROB*1,1,1> .1=1,21) /90, ,96, , 100. a05. .109. ,113. , 117, , 121., 

1125.. 128, ,131., 134., 137,, 139.,142.,144.,146.,148.,150.,153.*160./, 
2 (PROFU 1 ,?,n , i=i,2ii /2fr, ,5l. ,34. ,35. .36., 37. ,37.5,35.5 *39.5,40,2= 

341.. 42..43..44..45.2.46.5.47.3.49.0.51..54..59./,<PROB(U3,I).1=1, 
42l)/25.,29.5,31.0,31.8*3<.0,32.5,33.0,33.5,34*»34.5,35»,35.4,36.0, 
536,5.37.0,37.5,39,0,39,,41.,44.,50,/ 

DATA (pror(2.1,1J,?=1,21)/T7.,81.5,55.,99,6,94,,99,.102.5,107., 

1111. ,115,5,120,,125,,130-,135,,139,5,144,,149.,154.,160,,165.,172. 
2/, (PROB(?,?,!),1 = 1,211/25.,29.,31,,31. 2 ,32,,32.5,33,.33.5,34.,34,5 

3.35.. 3^.5,36,,36,5,37.,37.5,38.,39,,41..44.,49./ 

DATA (PROB(3a,n , 1 = 1 , 21 ) /**9.a06.,113., 120 ., 126,, 131., 137. ,143., 

1149., 1*^5.. 160., 166., 17?., 17 9,, 184., 197,5.190., 193,, 195,, 198,, 200,/ 

X , (PRO 

29(3,2,1),1*1.21)/35,«40.,4?.5,44,,46.,48,,50,,52.,53.5,55,3,57., 

359.. 61 .*62.5,64.5,46.5,68.*70,,72.,74.,78./,(PPOB< 3,3,1)♦I = 1,21)/ 

424.. 29.« M.,31.5,32..32.8,33.2,34.,34.3,34.8,35.,35.2.36,0, 37.0, 
537,5,34.0.38.7,39.2,41.,44.,49,/ 

t F(IP05-2) 1,4,6 
1 1F(RAD,E0.1,0) GO TO 2 
JF(RAU.EO.2.0) GO TO 3 
J = 3 

GO TO 9 
? J = 1 
GO TO 9 

3 J = 2 

GO TO 9 

4 IF(RAD.EO.I.O) GO 10 5 
J = ? 

GO TO 4 

5 J = 1 

GO TO 0 

6 IF(RAO.EO.1.0) GO TO 7 
IF(RAD t E0.P.O) GO TO 8 
J = 3 

GO TO 4 

7 J = 1 

GO TO 9 

8 J = ? 

9 IF(.NOT.(vFL.LT,PRQO(IPOS,J, l))) GO TO 10 

bdebre=o.o 

GO TO 1.3 

10 00 11 k=?,;»i 

IF(VEL.GF.PR0B(IP0S,J»K-1) •AMD.VEL.LE.PROBdPOSOiO) GO TO 12 

11 CONTINUE 
BDERRE=100.0 
GO TO 13 

12 BDEBRE = 5,»PinAT (K )-5.<»(PR0B < IPOS, J ,* > -VEL) / (PROB (IPOS, J ,*> -PROB (IP 
10S,J»K-1) ) 

13 RETURN 
END 
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$ IRETC BTrI 

function BTRANI(V,OA0»IPOS» 

C INJURY CURVES POR BL^ST DEBRIS 

tPmdos-?) 1,2.3 

1 !P(«AU,LP.l. r >> GO TO 4 
!P(PAD,L r .?."> GO TO 5 
AMs7,7 

Bs«.fc4. 

GO to ]o 

4 AMs4,0 

R=-2fcO, 

GO TO 10 

5 AMs2*>, 

B=-GPO. 

GO TO io 

2 TF(RAU,l c .1.0) GO TO f, 

AMs*,67 

RS-f)#!.’!’ 

GO TO 10 

6 AM=3,4G 
Bs-165.5 
GO TO 10 

3 IF(RAD.LF.l.O) GO TO 7 

ir< rad.lp.?.o> go to fi 

AM=6,67 

B=-60. 

GO TO ^0 

7 AMs2,04 

Rs-102. 

GO TO 10 

p AMa*i t 2ft 
P=-A 4.1 

10 BTRANIsAM*V*n 

IF JBTRA.NT .LE.0.0) RTRAN I*0.0 
IF tBTpANT.GF.100.01 RTRAN!=100. 
RETURN 
ENn 
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tlBFTC TRAJE 

SUBROUTINE TRAJ <W,OVRPR,00,01 ST,TMAX,VeH) 

c 

C TO COmpmTf n^RDts TRAJECTORIES 

c 

C0HMON/piLlcn/LI?Tl (6) »LIST2<9) «L!ST3<31) *LISTSC9) • L ! ST6 (7 ) ,LI ST7 (9) 
UiSKiPrei •L!ST«(9) *ABETA,IAC 

DIMENSION n iST < J),VFH(1) 

PRFXPs ?, ?$k'l 
TMEX»so,S977A 

RRFCT»l.72F9*<100./W)««UP^EXP/3») 
TMFCT=7.S3Ao39TE"3‘»(100./W)« < ‘<TMEXP/3.) 

PNGs(OVRPR/PRFCT) ^<M-I ,/PRExP) 

DT = TMAX/Sor). 

KOUNTal 

FTaTMAy/100. 

RAD=RD/1?. 

PROVRsnvRpR 

AR6*1.0 

DEtTATsO.O 

XDOTsQ.o 

DISTXsn.n 

SlfiMAXeO.O 

TIME=0.0 

SUMSFvsfl, 0 

TSTAR-n.n 

IF lAPETA.LE.O.P) AeETAs360.»RAD 
7 REFPspRFCTo (RNr. + SIJMSF v»DFLTAT) #o (-PREXP) 
REFSFVan?0,«SCRT(I.>6,»REFP/103.> 

S»MSFv = S»iMSFV*PfFSFV 

CAPTr TMFCT»t« M G*S!GMAX)««TMEXP 

RHoaO.Pflo ( <7.-*F.*»PRoVR/l4,7)/ (7.*PR0VR/14 # 7)» 

WINDVb93,4*PROVR/SQRTci,*6.*PROVR/103iI 

DUMsWINDV-XD^T 

IF <DIJMI 3« 3*4 

3 Ca-1.0 
GO TO 5 

4 C=1.0 

5 PETA«-C«ABFTA/°hD 
CONSTlaARG 

C0NST2»ARG/BF.TA* (XPOT-wJNDV) 

DISTYs«ETA*AJ.OG (ARG) 

DEITAT*DT 
TlMEsTTMf*DT 
IF<T!ME.GE,FT) GO 70 9 

A ARGa<C0NSTWC0NST2«nEL TAT ) tt EXP(WlNDV‘»DEl TAT/BETA) 
DlSTXenFTA*AL0G(ARG)-ni5TY 

X DOT= (CONST i*»w I NDV+CONST?« tBETA*nELTATuwINDV) ) /<CON5Ti*CONST2*DElT 
1 AT) 

XOLD=STG M AX 
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S!GMAXsS!G*AX*niSTX 
STAPPssdrFct* fR»'G^S!GMAx) 

TSTAOsT^TAB^nELTAtltStGMAX-XOim/STARV 

pRDvo=RF:rR«n ,-tstao/capt) °exp(-tstar/capt) 

IF (PBOVR.LT'.O.n) PRHVRsO.O 
GO TO ? 

9 nisTuou*n>ssio.MAx 

VEH <<OMNT)5SORT(Xno r PXDOT*l03^.91PFTPFT) 

IF (KOl^'T-lOOl 6^,64,64 

63 KOUNTsKQii»iT*l 

FTsFT+TMAx/IOO. 

GO TO 7 

64 RETURN 
FND 







SIPFTC THER M94,XR7 

SUBROUTINE THERM(KPRInT) 

COMMON/BLK2/ G7X,GZY•XN,YN*SS,$N,SW,SE,SI,$2,PHI 
C0MM0N/BLK3/ W.HB,vIS,XO,FFR#AIRPEN,JSEASN,TODAY 

COMMOn/hU*/ AVEHT.AVEWT, AV£W, AvEL,HMAX,Al, A?,A3,A4,A5»D1 ,D2,D3,D4 
1,05,W1.W?,W3,W4,W5,KA,A7 oT,D!SMAX,DELTD,FACT 1,FACT2.INDX(5),AAA<5> 
2.INDX1,INDX2,PFRPTN, POPDN;REACS!,REAC$T,REACLY 
COMMON/BLK6/ pn, tq.ri.pona 

C0MMON/BLK7/ NN,PERCWI<10)TPOBILDI10).BUILDW(IO)tBILDLT(10)* CONFER 

1 (10) «B!LPh! (10) «P0S p R0(3S ,POSPRI<3) .NFLUO) iAInTRL (10) tEXRLUO) , 
2PBREAX(10) *TWALLTnO) ,IBT<lO> ,PERCOA ♦ BILDHT U0> 

COMMON /9LK11/ WALPANC10),WALDEN(10),Fi.ORTH{10)»FLORDN<10),ROOFTH< 
110).ROOFONf10),BASETH(10> ,eA$EDN110).SOllDN(10)•SIIHT(10),PERSCR <1 
20) .PERSG(IO) ,PERGG(10) «PERUBS<10) tPERG(10)»PERt)E(10> *PERGGS<10) 
COMMON /9LX1?/ DOYTHI,DWKT*I.DMTTH1,OOYTHO,DWKTHO»OMTTHO 
COMMON/BLK14/TI I,TIO,DI 1.D10, F II, F 10, RII , R10, TllNJ NJ, YFATAl, T AI Njr 
DIMENSION Ht<3),A<3)»ADE(3>,ASCR(3),AG(3),ASG(3)«AGG(3),AGG$<3).AD 
IBS (3) »AR^AO (5) »DTST <5) «AOUT (5) .RADEXH) , 

2 ABURN(T).PKT(7), ARB 

3URN(2,J»5) .PK(2A) ,PPK (3.15) .PKDEM (3.4) »pKSRM{3,4> .PKGMO.4) .PKSGM 13 

4.4) ,PKGGM(3.4).PKGGSM 1 3,4),PKDBM<3,4>.PXDEw(3,4),PKSRW(3»4),PKGW{3 

5.4) .PKSGW(3,4),PKGGW(3,4),PXGGSW(3,4),PXDBW<3,4).PKDED(3»4).PKSRPt 

63.4) ,Pir GD< 3,4) ,PKSGP<3,4) ,PKGGD (3,4) , PKGGSD (3,4) ,PKDBDI3,4> , 

« PKTM<3,7),PKTW(3.7),PKTD<3,7),PKTD0(7>,PKTW0(7),PKTM0(7),TKM{3,'>) 

9, TKW(3,4),TKnn»4),0<7),TIME<4) 

DIMENSION tici (3,4) ,PINJ(3,7) 

DATA(ARBURNI2,Tl),IIxl,l3)/0,,l6,,l6.,16.,16,,16,,16,,l7.5»33.,55. 

1.77.. 96..100./ 

DATA (ArbIIRN< 1, Ii) ,11 = 1,18) /0,,6.,6.,6,,6. ,6.,6.,6..6. ,15,5,24. .3s, 

1.48.. 61.5.73..66..96..100./ 

DATA<PK(II),11*1,17)/0.,3..6.,10.,19..31.,45.,56,,65.5»74,2,61.5.8 

27.. 91..94.5.97..98.5.100./ 

DATAIPPkU.IT) , 11*1,10)/0.» 6,2,16.3,29,5,33,8,34,5,2,5,0..0, ,0./ 
0ATA<Ppk<2,II),11*1,10)/100.,89. 5,75.,60,,51,5,43,5,28,5,23.5,14., 

10 . / 

DATA(Ppk(3,11).11 = 1.10)/0.»0,»5.,11,5,16.,22,,47,5,60.,62,.100./ 
DATA(TIMEUJ),IJ=1,3)/2,,6.,10,/ 

DATA<HT(M,1*1.3)/5.76,1.58,1,0/ 

106 FORMAT(3H0As»E15,8) 

90 FORMAT( 1X,4(E15,8,2X) ) 

91 F0RMAT(7H09ADEX*,E15,6) 

92 F0RMATf7w0ABURNB,E15.8,2X«5H PKT«,E15.8> 

56 FORMATI19HOTOTAL DEAD IN DAya,E15.8,20H TOTAL DEAD IN WEEK*,E15.6, 
121H TOTAL DEAD IN M0NTH«,E15.8) 

54 FORMAt(6MOtIME=,E15,8.2X,?Hq=,E15.8) 

48 FORMAT f 31HOpFRCENT KILLED OuTSIDE IN DAY=,E15.8/32H PERCENT KILLED 
1 OUTSIDE IN WEEk*,E15.8/33H PERCENT KILLED OUTSIDE IN MONTHS,E15.8 
2 ) 

?5 FORMAT(14HlBUILDING TYPE,13) 

Fn*o,6 
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Q(4)BTft 

XO=XO 

TMAxsn ; n^3«sr)pT (w> 

TIMP(4)sTMAx 
00 51 T J = 1 • 3 
TOTHAX = TTfi?:ii j) /THAX 
IF(TOT M AX,GT»lf).) 60 TO 52 
5! OIIJ)s TQ*prRCTH(TOTMAX) 

NQ*4 

GO TO *5 
52 NQsIJ 
OUJ)«Tq 
35 PDYTHsn.O 
nwxTMso.n 


DMTTHsfi.O 
DO 190 1=1.NN 

IF(KPRT NT,GT»O' WRIYE(b.25> I 

XL = SQRT(PF*eWl (!) /100.)»(BUnWI <I) #COS (PHI) ♦ mLDL T (I) «SI N (PH!)) 
HP= 20. 

CTNTHSXO/HR 

tantm=hb/xo 

WINTIOwslO.OsORT (PEROWI (I) /100.) 

THETA= ATAN(XO/H0) 

SPWsSILHT(1)♦WINDOW 

nAvs(DlttAi*D2«A2*n^*A3*D4»A4-*-D5«A5) /ATOT 
IF( .NOT.(KA.GT.OJ) 60 TO 1 

nAvs(SloAi < *STN(PHn*52#A?oC0S(PHin/<Al*SINIPHI)^A?*C0S(FHn) 

1 CONTINUE 

HSWAnE=(AvFHT-TANTH«DAv) 

IFCHSHAUr.LT.O.O) H SHAOE = 0,0 
FLHTsoTLnHTH)/FLOAT <NFU <!>> 

FLOORSaHSHAnE/FLHT 

KFLOORkFLOORS 

XFLOORsKFL^OP 

IF(HSHAnr.LE.(XFL00R«FLHT*bpw)) GO TO 10 
XFLOORsXFlOOP^I 
10 XNFL = NFL II 1-RFl.OOR 


DO 3 I!=1.3 
A (11) aft , 

IF <CT(MTH#SPW,LF.EXRL n ) .ANn.SILHT<n .GT.HTdin Ad 
1 ( I n+WTNPoW) 

IF tCTNTH#S p W.LF.EXRL m.A nD.SILHT(I).LE.HT(II)) All 
IF(CTNTHttS^W.GT.EXRL(I).A nD.SILHT(I)»CTNTH,LE,FXPL( 
l.LE.HT(Il) )AlH)*FXRLm«XL 

IF(CTNTH*SPW.GT.EXRL(I).ANO.SILHTinttCTNTH.LE.EXRLl 
l.GT.MTU!) )A(IT)=XL«(FXRL (I)-CTNTH«MSIlHTII)-HT(II) 
IF(CTNTH«SFW.GT,EXRL(I).ANO,SILHT(I)«CTNTH,GT.FXRL( 
l.LT.HT(IT)) A(11)=F XRL(I)**L 
IF(CTNTH»S»»W.GT,EXRL ( l> . fl Nn,SILHT(l)»CTNTH.GT.FXRL( 
l.GE.HTlIT).ANn.SJLHTtll-eXRLtllPTANTH.LT.HTIlIH Al 


I)aCTNTH«XL*(HT 

I)*CTNTH*XL*5PW 

i)* and.silht 11 > 

I)(AND.SILHT 11) 

n 

I) • AnI)« SILHT ( 1) 

I) .AND.SILHT(l) 

II) aXL«*lEXRL<l) 
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i H >*Al I*KtH5CRC I) 

AG <11) 8AT I*per<*, (1) 

ASfidll sAlf«»C0S6(T) 

A66 n n sa i c»gg( n 
AGGSHTJaA! J*pf*RG6S( I) 

AD6S(!tJ*AT !<*P*-e!18S(!{ 

I^ ( v! RINT ‘ r,T,0) w *I r E< 6 . 90 > ADBS(II)tAGGCin 

CONTINUE 

AA«AVEHH»CTNTH 

AREAO(l)«Al 

AREA0(?)8A? 

ARPA0(^)8A - ' 

AREA0<4)sA4 

AREAO(«5)sA3 


0I5T<l)nni 
DIST<2)*02 
HIST <3)s03 
0I$T(4)rtH 


"I$T(5)*n5 
DO 12 

AOUT(IT>*<DlST»n)»AA)*AREAO(II)/DlST(II) 
IF(AOU T (I I),LE.O. > AOUT(I I? s0»0 
12 CONTINUE 

IF<KA.fq,o) GO TO 203 

R0=AA 


A^SBPOSIN(PHI) 

AOUT(Hs(Dl»AA)*Al/Dl 

AArBBttCOS(PHI) 

AOUT(2)=(D2^Sl-AA)*A2/(D2^5H 
AOUT<3)s-Sl«SZ 
AOUT<4)80,0 
A0UT<5 isO.O 
203 KKOUNTsO 


K*2 

RFIN»22. 
RCHA*lf. 


DO 40 J3l,NQ 

IF(KPRTNT.GT.O) WRTTE(fe,54) TlME(J).Q(J) 
RADEXU)sq(j) 

RADEX(?)SQ(J)*,67 

RADEX(3)bq( j)»,56 

RADEX(4)bQ(.j)*,37 

RADEX( 3 ) 3 a<J)«. 3 l 

RADEX(A)«Q(J)»,21 

RADEX(7)30,0 

IF(W,LE.32000,) GO TO TO 


♦ASCR(II)♦ASGIII) 
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no 125 

i?g 8ADry:>M) = "Aor* n «» »m • * wi .4?^»(u««.9'' 

GO TO ?3 

70 no 126 I Mai 

126 <?aoev (lm) = {vAo r x fi i; :*' ‘.o*; •■•'■« > ■ / <«*«.:) 

13 IF (KPRJnT.gt.C? WR•"E < 6 * - ’ ’ H.M) * L^sl.Ti 

LG27 

12? 00 121 L** s i.i_5 

11 = 1 
DPF=2. 
o°Ans<*, 
or. 0 = 6 . 

:f(raofx'lm),l t *<».i Go rr :- 

IF {RAD r X'*M) ,GT,RCMA) GO ‘ °- 

JF<RA0P\-.mj ,GF,4,.AMO.«*'•-f »'.6.) GO TO 16 

IF (PADEX..Sr # 6..AVP.e*0FX "- V J .i." ♦ **CMA 1 GO TO 15 

16 DIFFs<OAnEK aMl-ORADl/ ;0RA"»-0-t.T 

ABURN ((.Ml I) *0! * . 11 * 1 >-AftBU*^ < X « U ) 1 

GO TO 19 

17 ABURN(L M'=0• 

GO TO ?f 

1« ABlJBNd Ml s17.5*3*62®(RADFX<L m 1“PC u * ’ 

IF(T,E0.11 AHU»N<LM) = 16.0*?. 74* <<?';•» f L M)- rCMA) 

IF (ABU9N'L m ! ,G T . 100. > ABURM <LM)s*.CO. 

GO TO 19 

15 ABURNdMla&e^A 
19 IF(ARU9N<LM).EO.0,1 GO To 22 
IF<AniJ0N<L^> .G r .«0.1 GO T 0 41 
11=1 
I)RE=5. 

ORAD=0. 

OR AD = Q9An*riR r 

60 IF(AnU9N<LMj .GP.ORAn.AND.AP’jRW^.M! #L « .7P& D , R0 T0 21 

OR AD=0° AruriR*' 

ORADsO^AO+ORF 

!I*IT*1 
GO TO 60 

21 DIFFs(ABiiRMaM)-ORAD)/(DRAn-ORAD) 

PKT(tM)sO<(It)*DIFF*( p<(II»1)-PK(I!)» 

GO to 

ft ry* «i=p.O 
n- 73 

41 p' • 'I=100. 

23 rr utnt.GT.O* WRITE(6,9Z> ABIIRN (LM) »PKT (LM) 
r*-A -PN(LM),LT.10.) GO TO 2* 

TF(m**.-!»X< L M) .GF.45.) GO TO 33 

TJ = 1 

11=1 

ORFaS. 

OR ’.ns 10. 
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DR*DaOPAn*DRE 

IF(ABUPN<L*>.6F.10..AND,ABURN(LM>.LE.25#) 60 TO 26 
!F(ABUPN(LM),61,25.,AND.ABURN(LM).LT.30.) 60 TO 27 
JF(ABUPN(LM) ,GE.30,,AND.A8URNaM) .LE.35.) 60 To 31 
IF(ABU°N(L M ),6T,35 »,AnD»ABURN(LM)* lE t 36.5)G0 TO 26 

II»9 

DRADSA6. 

DRF»5 * 

ORAD-40, 

26 IFUBUPNJLH) ,6E.0RAD.AND.AbURN<lM) ,l.E.D«ADl 60 TO 29 
II-IIM 

0RA0*0»AD*nRE 
SO DRAOsORAD*DRE 
GO TO ?8 

29 DIFF-(ABORN(LM)-ORAD)/(DRA0*0RAD) 

PKTM(K,L M ) 3 (*KT(LM) /lOO.)*lPPMlJ*T!)+DIFF*<PrK(!J.!!*l)»PI*KUJ«II 
1 ))) 

IJ«IJ*I 

PKTW(K.LM)»(PKT(LM>/100.)*<FFK(lJ.I!)*DIFF*<PPK(lJ.n*i>*FPKtIJ«II 

1 ))) 

IJ-IJ+1 

PKTD(K,LM)a{l»KT(LMJ /lOO.)«MPP*<IJ«11>♦DIFF*(PPK<IJ.I!♦!)-PPK <IJ»I! 
1 ) ) ) 

PlNJ<K,lM> 3 100.-PKT<LM) 

IF<PINJ(K.IM>.LT.0,0) PINJ<K»IM)-0,0 
GO TO 121 

27 DREaP.5 
11-4 

OR AD-25• 

GO TO 30 
31 11-6 
ORAD-30, 

GO TO 30 
26 DRE-1.5 
11*7 

ORAD-35, 

GO TO 30 
34 DRE-3.B 
11-6 

ORAD-36.5 
GO TO 30 
24 PKTM(K,LM)-0. 

PKTW(K.L M ) 3 100.*PICT(LM)/100. 

PKTn(K,|.M)*o. 

PINJ(K.LM)-FIRINJ<ABURN(LH) ) 

GO TO 121 
33 PKTM(K.L M >-0, 

PKTW<K«L M > B 0. 

PKTD(K,LM)*ioo.«PKT<LM)/ ioo. 
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PINJ<K,LM)=100«-^KT(LM> 

IF(P!NJ<*tLM>.lTtO.O) PlNj *0,0 

121 continue 

IF (KKOuNT.EO.O.ANP. ISFASN.Nf.l) GO TO 3» 

GO TO 
5* < a l 

KKOUNTal 

<JFINs2*. 

PCHAslP. 

LG = 1 

GO TO 12? 

3* OENOMsR ILDW1 ( H •BlLflLT ( !) *FlOAT (NFL (I >) 

DENOMsPENom 

PKDEM(j I,J)sADF(in /DENO M<,t> KTM<K,l)»POSPRI U 1) /100* 

PKSRN( 11 ,J)=ASCR (1T) /nEN0M»PKTM(K,2) «* p OSPRI l!!»/10O* 

PKGM U|,J)cAG«l!)/rENOM* BK TN(K.3) “POSpRl (II)/100, 

PKSGM(! I, J)sA5«( in /OENO^«’°H; T MOC.<t>PPOSPRn!n /100. 

PKGGMU I,J)=AGG< 1!) /DFN0 M< »PK T Mnc,5)*P0SPPl (ID /100, 

PKGGSM ( T I « J) sAGGS <!!) /DENO w,ttPI < TH (< ,6) «P0SPRI (11) /100. 

PKOBM < T ! • J) sAneS( !!>/DEN0 m »‘ , <TM(k;,7)*p0SPRI (I!) /100, 

TKM (T 1« J> =PKPE M (11 , J) «-PKSR M (11 • J) ♦PKGM (II * J) ♦PKSGMd I ♦ J) ♦PKGG« :' ’ 
lJ)*PKGGS»»(!l*J)*PKnpM(!I,J) 

TtCMdl , JI =TK M (11» J)»CONPER < n/100*«PEPPIN/1.E4 

PKOEW(TI»J> sADF <It)/OFNO m °PKTW(K•1 ) * p 0SPRI(11>/100• 
PKSRW(IT,J)sASCR(in/r)ENOM*PKTw<K,2)«POS p RT<!I)/100» 

PKGW (TI«J)sAG»III/nENOM*P^TW(K,3)«*POSPRI<111/100. 

p K5GW(T I, J)=ASG( III /OENO M **’!(’W(K,4l«POSPRI (ID /100, 

p KGGW(TI.J)aAGP(n)/nEN0 M » e *^»' ; K»5) <> ROSPRI (II) /100. 

P<GGSw (IT , J) sA^GS f T T >/nEK'C^'>'< r w<< *POGPR ! (11) /1O0, 

PKOBW ( T I * J) s ATRS C T T)/DENO^^-P^) *POSPR I (11>/100. 

TK.W (11 , JT s PK n EW < TI, J) *PKSRW (II * J) *PKGW (11 , J) *PK SGW (11, J> ♦PKGGW (I I 

lJ)*PKGfisw7t! ,j)*rr,n«W(IT,j) 

TKW(II , J) stKWdl *J?«CONPF»'n /100.«* p ERPIN/l.E4 

PUDEPdn J)aADF(m/DFN0 M '»P>C ,! ’n(*C»lTPPO5PRIdn/100, 

PK 5RH(T!•J> sASCP t!n/pENCP°P< TO(K•2)*P05PRI(II ) /100, 

PKGO < I T • J ) =AG ( d > /OFN0 r1 *PKTi3{K,3) opOS^RT < 11 > /100. 

P<SGD(TI.J)=ASG(I!)/OFNO M « p <TO(K,4)«Pn S PRI(II)/100. 

PKGGPCII. JTsAGGdn/OENO^KTtMK.S^POSPRI (ID /100. 

PKGGSD (I T , J) sAr-oS (1 T )/CENO^-^f T 0 (K > »P05PR I d I) /100. 

PKflRH ( T T • JT a AOBSd!) /OENO*P p '•'”(* «"n tt P05PR I (I I) /1001 
TUT (I I . Jl *POE" d I * J) ♦PKSRTM! ' * J)*P<GD (11 .J > *PkSGD (I ! ♦ J> ♦PM»GD (11 
lJ>*PKGGSn<!!,J’*P<D«D<II »J> 

TKndI,J) sTKDdl »J)*C0NPER (I> /100.*PERPIN/1 ,E4 
FACTsPOSPRT dn/(0EN0M«100.) 

P inFOsADF (T I> <> p IN J (K d ) »FACT 
I'ISROsASCR f lI)«PtNJ (K,2)*FACT 
p IGn*A(*. ( T I) *P INJ (K ,3) «FACT 
PISG0*ASGdn l »*’lNJ('C*4)*FACT 
P IGGIT* AGP (Tn* p INJ(<(«5'PFACT 
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PlGGSDsAGGS U P*PINJ (K«6) «EACT 
Pir>BnsADP$< I!) *PINJ(X,7) oFACT 

TKI(11,j) sP IDED«-PI SRD*p !GD*P ISGD* e IGGD^PIG6SD+PlOBD 
TKI (!I <TI,J)*C0NPFfi(I>»PERRIN/l.E6 

39 CONTINUE 

IFlKKOi'NT.EQ.O.AND.ISEASN.EQfl) GO TO 50 
AA AOU*AOUT(1)*AOUT(2)*A0UT(3) + AOUT(A)*AOUT(5) 

IF(AOU.LT.O.O> AOUefl.o 
RAT!02A0H/AT0T«(1*=PER?IW/100.5/100. 

PKTMO(J)*PKT M (K «1)#PATI0 
PKTWO( J)»PKTW<* ,1>«RATI0 
PK7D0C JjsPXtn<- , 1) At?AT 10 
FI08PIWJU*1)»RATI0 

IFUPRINT.GT.O) WRITE (6«P0O) AOUtATOT,PKTWO(J> ,PKTWO(J) ,PKTDO(J) 
200 FORMAT<3 PhOAOU«ATOT,PkTMO(J> »PXTWO(J)»PKTDO(J> ,5E17,6) 

AO CONTINUE 

IFIKPRTNT.GT.O) GO TO 55 
GO TO *3 
55 DO A6 »=1.NQ 
DO A6 71=1*3 
GO TO (130,131,132)* 11 

130 WRITE (6.133) 

133 FORMAT(9H05TAN0ING) 

GO TO 136 

131 WRITE(A,13A) 

13A FORMAT(flHQSITTING) 


GO TO 136 
132 WRITF (6,135) 

135 FORMAT(6MOLYING) 

136 IFUPRINT.LE.O) GO TO A6 

WRITE (6,A7)PXDEM(II.J) .PXSRMUI.J) ,PKGM(II,J) .PXSGMtli.J) »PKGGM( 11 
i.Jt .PKGG5M( JI.J) .PKDBMUI.J) .TKMUI.J) .PKDEWriJ.J) ,PKSRW(I1 .J) ,PXG 
2W(I I»J).PKSGW(II.J), PkGGW( 11«J), PK6GSW <II«J),PKDBW(1I,J).TKW(II,J) 
3,PKDED(II,J),PKSRD(II,J) .PXGDdl.J) ,PXSGD(II,J) ,PKGGD(II,J) .PKGGsD 
Adit J) .PKDBD(II.J) ,TKD(II*J> 

A7 FORMAT(A3H0PFRCENT KILLED IN MONTH (DIRECT EXPOSURE)*,E15.8/35H PE 
1RCENT KILLED JN MONTH (SCREENS)a.E15,6/40H PERCENT KILLED IN MONTH 
2 (SINGLE GLASS)=,E15.6/A1H PERCENT KILLED IN MONTH (SCREENS,GLASS) 
3*,tl5.8/A1H PERCENT KILLED IN MONTH (DOUBLE GLASS)*.E15.8/48H PERC 

aent killed in month (double glass,screens)*,ei5,8/aih percent kill 
5ED IN MONTH (DRAPES,BLlNDS)stE15,c',5X,23H TOTAL KILLED IN MONTHS,E 
615,8/A?H PERCENT KILLED IN WEEK (DIRECT EXP0$URE)=,E15,8/34H PERCE 
TNT KILLED IN WFEK (SCREENS)= ,E15,8/39H PERCENT KILLED IN WEEK (SIN 
86LE GLASS)*,F15.8/A0H PERCENT KILLED IN WEEK (SCREENS,GLASS)*,E15. 
98M0H PERCENT KILLED IN WEEK (DOUBLE GLASS) a,El5.8/A7H PERCENT KIL 

iled in week (Double glass,screens>=,ei5.8/aoh percent killed in we 
2£K (DRAPFS»BlI fJ DS)*,El5,Si5x,22H TOTAL KILLED IN WEEK*, El 5,8/AlH P 
3ERCENT KILLED IN DAY (DIRECT EXPOSURE)*,E15.8/33H PERCENT KILLED I 
AN DAY (SCREENS)s»E15.8/3BH PERCENT KILLED IN DAY (SINGLE GLASS)*,E 
515.8/39H PERCENT KILLED IN DAY (SCREENS. GLASS)*, E15.8/39H PERCENT 
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iuf.rn «u n A V innuni F GL A SS) e »E15 , ft/46H .PERCCHT KlLLC JMNJ 

TfBLrGLAS*.5CPEEM5l«;ei*.e/S«H JEJCENT JitLtu »« u«, - 

8)*»E15.B.5X*21H TOTAL KILLED IN DAya,El5.8) 

46 CONTINUE 
53 DO 1 Q 1 ITal.3 

FI I»FIT*TkT fTI*N0J 
DDYTHsPDTTH^tK” 1 U I *NQ i 
DWKTHsnwKTH*TKW(!I«NQ) 

191 DMTTHcriMTTH4TK M (I!«NQl 

1,0 Sf7ImV5t..t.O! WI»EC*.*.t «TD0INai.«T»O ( MQ..KTHO|H0l 

TDDY = D"YTH^KTDO(NQ) 

TDWK3DWK t H*PK TWO < NQI 

tdht*d^tth*pktmo(nq> 

nDVTHIrDDyTH 

OWKTHI*DWKTH 

DMTTHIeDMTTH 

DDYTHO«»»KTno«Nn) 

DWKTHO*pKTWO(NO) 

DMTTHOspfTMOlNO) . 

IF (KPRTNY.GTiO' WR|TE(6i56) TDDY»TDWK»TD T 

return 

END 









tTKFTC PERC MR4»XP7 

FUNCTION PERCTW<TOTMAX) 

DIMENSION ?FPC(25) 

DATA (PFrC (I) . la 1.24) /On . OOfc«♦023♦*06».13*.21».39»*Aft5».575».595*. 
6t“. i .“* .'»C5i 72® * . ?** ; i 76 ; -??•; ; 7 *‘ : ?9* ; *0?» t A 1 • ? A15/ 

*7130^ 

DELTTs.2 
! = \ 

tFnOTMAX.FQ.O.) 60 TO 2 
IF(T0TMAX.6E.10.) 60 TO 5 

1 IF (TOT«AX ,GE»TT.AND«T0TMAX«LF»<7! ♦OEl.TT) ) GO TO 3 
IFITOTMAX.GE.I.O? 60 TO A 

TIsTI+flfLTT 

l»I*l 
60 TO t 

J OlFF»(TOTMAX-m/DELTT 

PERCTH*PFRCM)*DIFF<»(PERr<I^l)-FERC (I>) 

60 TO 7 

2 PEROTHsO. 

GO TO 7 

5 PERCTHafll.S 
60 TO y 

A TIsl.O 
DELTTs.S 
1*6 

6 IF(T0TMAy.6E.TI,AN0*T0TMAx«LE.< TI♦DEL TT)) 60 TO 3 
1 * 1*1 

TIsTI^OELTT 
GO TO <k 

7 RETURN 
ENI1 


SIRFTC FIRIN 

FUNCTION FIRINJ(AREA) 
c INJURY CURVf 6 f'UE TO FIRE 
FIRINJ«?^.«AREA-150,0 
IF(FIRINJ.LE.O.O) FIRINJsO.O 
IF(FIRInJ. 6E.1O0.) FlRlNjslOO, 

return 

END 
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SIBFTC nucl 

5ijBDftijr tNp w'JCLAP (K®b;*iy» 

C0MM0N/BLK?/G7x»GZY*XX.Yn.SS»SN»SW.SE«S1.$2*PHI 
COMMON/BU V W.HB.VlS.XO.FFR.AIRnEN,ISEASN.TODAY 

COMMON/BU 4/ AVEHT.AVEWT.AVEW.AvtL.HMAx.Ai.A2.A3.A4,A5«Bi»DZ»D3,D4 
l.D5«Wl,w?,W3,W4.W5.KA,AT0T.DlSMAX.nELTD.FACTl»PAeT2.INDX(5).AAA(5) 
2 *INDXl,lNDX?,pFpP| N , PoPON.REACSI.REACST.REACLY 
C0MM0N/BLK7/ NM.PERCWIC10)TPOBJLD<10)♦0UILDW(10).BILDLT(10) .CONFER 
1(10) .BTLOWI ( 10) .PO$PRO(3> . POSPR I ( 3) ♦ NFL ( 10) . A INTRl ( 1 0) «E*RL (10) « 
2PBREAK <]0) tlWALLTU^) * IBT (10! .PERCOA.BILDHT (10) 

COMMON /BlKU/ WALPAN(IO) .WALCEN(IO) .FLORTH(IO) .FLOR0N110).ROPFTH( 
110).ROnFON(lO).BASETH(IO)*»ASEDN(10)♦SOILDN<10)«SJLHT(10).PERSCR(1 
20) ♦PERSGdO) ,PPRGG(10) .PERUBS (10) . PERG (10) .PER0E<10> «PERGGS (10) 
COMMON/8LK13/ A V EWtR«rADG♦RAON,DHBO.DOBO.DMBO.DHBI.DDBI,DMB1. 
IDDIONI.DWiONI.OMION t.DDIONO.DWJONO.DMIONO 
COMM0N/BLK14/T!I«T!OiDII,DlO.FII,FIO.RII.RIO.TUNINJ,TFATAl,TAINjR 
DIMENS TON KFLORM(10> tWALPA(10).KROOFM(IO)»TRH0(10.100)»ATTG<10.100 
1) 4ATTN(10,100),RHOX(100)»CELLA(10) »PCAFF(10) .PCAFUOdOO) .TIMRAD (1 
20.100).TAEX(16>.P*0<10>.TIMR0<10)«BASET<10)*R00rT(10>*FLORT(10)* 

3K WALMT(10).PKBILOdO).PKFlOR(lOO) 

ODIONIbo.O 
DWI ON I*0 * 0 
OMIONlaO.O 
R10*0 * n 
p 11 = 0.0 
NBRsl 

IF(NN.LE.l) NB»=0 

KAVGMTbA 

RG=RADG 

RNsRADN 

no 111 I=1*NN 

fiIIN=0,0 

00=0.0 

DW=0,0 

0M=0,0 

IF<ROOFr>N(I) .LT.55.) KROOfMd )=3 

IF(R00F0N(T> .GE*55.«ANO,ROOFDN(I) ♦LT.no*) KROOFM(I) *1 
IF(ROOFDN(T) .GE.no.) XRO0FM( !)=? 

IF(FLOPON(T) t LT,55*) KFLOR M (I) s 3 

IF(FL0R0N( T) .GF.55,, AnD,F 1.0RDN( I) .LT.UO.) KFLORM (I) *1 
IF (FLO e ON ( T ) .GF.110.) KFL0RM<1)=J> 

IF(WALPEN(I),LT.55 f ) XWALMT(I)s3 

!F(wALnFN(T).GF.55 ..And,WALDEN(I).LT. 110,) KWALMT(I>=1 
lF(WALnEN(I),GF.HO.) AWALMT< I) =2 
IF(KPRTNT.FQ.O) GO TO 40 
WRITE ?6.41) I 

41 FORMAT (14H1BIJIL0ING TYPE.14) 

40 NF=NFL«I) 

00 167 M=1,NF 
167 PKFLOR(M)=0, 
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[ 


IF (PHI,6E..7ft5'i) 60 t 0 80 
ES*S? 

WlsB!LOL T <I ) 

lo'it'n 

no esasi 

WlsBlLOWl(?) 

AWjaAVrw 

81 THrTAsATAN(H8/*0> 

RHOf»nsAVFWTB/UVEHT»AVEL°AVEW) 

R*(AVfHT»xn/MB) /(ES-rAwf) 

LP*P 

XLPrLP 

IF<(»-SLP).6T..21 GO TO 30 
IF(XLP,E0.0.) 60 TO 99 
IFJXLP.GT.F.) 60 ▼O 405 
GO TO M 

30 XLP=XLP*1. 

IF (XLP >LF,?,) 6 0 TO 31 
40* XLP=?. 

GO TO 3i 
99 XIP=1, 

31 NFsNFL(15 
MMsl 

IF(THFT Al LP..2f18) GO TO 1 
!F(TWE t AiGF. 1* 1) Q9' GO TO 2 
WALPA #MiswALPA»'a ?/ (COS «THETA) *12.) 

PLOPr , .'JsFlOPTMeif/CSjNtTHETA)*!?.) 

POOF T (?) =R"OFTw (I) / (SIN (THETA) «1?.) 
PASETmaftASETHn) / (COS (THETA) *12.) 
CELLA(I)B(10»PW1) '<Hf)/'0> 

XNsW!<> fH<V*0) /10. 

81 NT=XN 
XNTsNT 

!►“( (XN-XNY) A 1 * .5) 60 TO 8 

MTsNT«-1 

GO v 0 3 

A IF(nT.FQ.O) 60 TO 9 
3 MMb l 

IF(0ASFTH{I)« EO,0.) Go TO 4 
NF*NFL(I)♦! 

48 TMICXs*./SIN(T ETA) 

62 TRHOU.Ps <BASFT(I) PRASEOS’' !) *SOHDN( I )»THICX) 
TRH*TPHf) (1*1) 

KKL*1 

CALL ATTFn'UTRH.KKL.THICX.ATG.ATT) 

atts«att 

XKL*2 

5 THICXapASETH) 

CALL ATTFN"(TRH,KKL♦THICK.AtO-ATT) 


i 

B 

I 

I 

1 

I 

I 

I 

I 

I 

T 

4 

I 
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EXNFsNF 
55 73 u^i.wr 
DO 72 N s 1»N T 

PKFLOR < M>sPKFL^R<M)♦PCAF< M* N» 

72 CONTINUE 

PKFLOR(M)sPKELOR(M)/EXNT 

73 CONTINUE 

IF (KPRfNT.FQ.O) GO TO 20 
WRITE (6*16)(P*FLOR(M>,Mel,NF) 

If FORMAT (26H0PEPCENT KILLED PER FLOORS,E15,8) 

20 PKRILDUIsn, 
no 74 Msl,NF 

PKRILDni aPKRILDm*PKFLOR(M) 

74 CONTINUE 

PKfllLOm aPKFmn<n/FxNF 
IF(<PRTNT,EQ.0I GO TO 111 
WRITE (6*17)PKRiL0(!> 

17 FORMAT(?SHOPFRCFNT KILLED ^UILDING*,E15, 8 ) 

111 CONTINUE 
PK INSO. 

DO 112 lnl,NM 

112 PK IN = PK IM^PKPUD < I ) »CONPFR <I) /100« 
IF'KPRTNT.EQ.O) GO TO 21 

WR1TF (6,113) PK IN 

113 FORMAT(23H0PFRCENT KILLED JNSIDE=*E15.85 

21 KKOlJNTsl 

84 0UTAssl«BILDLTCI*S2*(B!LDWII!)*51) 

IF < NPR , f Q. 0 ) GO Tn 45 
!F(THETA,GF.1.309) GO TO 85 
PKO < 3)sO,0 

IF(TMETA.GT..2Alfl) GO TO 88 
lF(PHI,f,T.,7A54) GO TO 83 
EXPAPAs5l«(RILDLT(I)*S2) 

SHAREAsS?*RILOWI(I) 

GO TO 46 

83 EXPARA = S2MBIL n Wl <I)+S1> 

SHAREAsSl»BIt.OLT<!> 

86 JJ*KKO"NT 

rAONG=RADn*RADG 

CALL AFFECT (RA T1 NG,PERCAF,TIMDTH) 
PKO(JJ)=P£RCAF 
TIMRO(JJ)=TIMDTH 
103 GO TO (104.100,108)*KKOUNT 
)04 TRHaRHnRn#THTCK 

kkl=kavg m t 

CALL ATTEND(TRM.KKL,THICK,ATG,ATT) 
RADGsRADGttATG 

radn*radn*att 
KKOIJNT -2 
GO TO 46 
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WRITE(6.300)(ATTG(M,N),ATT^(«.W),M s x.NE) 

300 FORMAT <6H0ATTGa«El5.9«6H A'‘TVs, £15. fl> 

6 IF( (N-NT) .EQ«0) 60 TO 12 
Nsn^i 

MMst 1 

GO TO 6Cl 

1? IF(RASFTMU) .EQ.O.) GO TO U 
IF<THETa.U.. 2M6> GO TO H 
NFaMFLm+1 
GO TO 10 
11 NFoNFLU) 

10 DO 35 N=1.NT 
DO 35 Mal,NF 

96 RA0NGaOAnG«ATTr,(M«N)>RADN«ATTN(M,N) 

CAU AFFECT(RADNG.PFRCAF.TlMDfM) 

PCAF(M f N)»*E*>CAF 
TIMRADIM«N)=TIMDTH 
CONSTsPERCAF*C^N»»ER (D/l.EA 
PCAFlNa1,0-CONST 

IF (PERCAF.LE.C.O) PCAFINsRAD INJ(PADNG)/100. 
RIIN3RTI*J*PCAF1N 

TF<TlMOTM,GE.0.,AND,TtMDTH,LE.1.0) GO TO 121 
!F(TlMnTW.riT,1.0,ANn.TIMDTH„LE.7,C) f,0 TO 1Z? 

IF<TIMDTM.GT,7.0) GO TO 123 
GO TO 35 

121 T)D=DTKroMsT 
GO TO 3S 

122 nw=nw*coM$T 

GO TO 35 

123 OM*D M +CONS T 
35 CONTINUE 

CONSTsNT*NF 

DDIONIsnr<lONT*nn«PERPIN/( 10O.»CONST) 
DWIONIeOWlONT-*' n W»PERPlN/( 100.OC0N5T) 
DMIONI*nMJONI^nM«PERPlN/(lOOi*CONST) 

RII*RIJI!N«PFRPIN/(100."CONST) 

IF (KPRINT.EO.O) GO TO 7 

WRITE(6.301) ((TIMRAD(M.N).PCAF(M.N).Ms 1,NF>.N*l,NT> 

301 FORMAT(6H0TlMRAD=.El5.a,6H PCAFs,El5,8) 

7 IF(BASETH(T),NF,0,) GO TO 200 
GO TO 201 

200 IF(THETA.lE,.2616) GO TO 203 
GO TO 201 

203 PCAF(1,1)sO, 

TIMRAD(l.l)*10noO, 

NLL*MF*-1 

DC 202 M«2.NLL 

PCAF(M,n)sPCAF(M-1.1) 

202 TlMRAD(M.l)aTIMRAD(M-l,l) 

201 EXNT*NT 
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TRHsTRHO<M»N) 

KKIsKROOPMU) 

THICK=900FT(I ) 

c ai_i_ Atrrwii /TBH.KKL .THlf.K . AT6, ATT) 

ATTG(M«N)sATfi 

ATTN(M,N)3ATT 

lS TRH0?M!S)»WAL^AC!)»<l.-S0RT(PERCWMI»/1.00.))*WALDEM<n 
TRHsTRHO <M«N> 

THJCKsWALPA (T) 

KKL=<WAL M T < I» 

CALL ATTPNIHTRH,KKL »THICK ♦ATGt ATT) 

ATTG<M,N)sATG 
ATTN(M,N)=ATT 
IF(NBR.EO.O) GO TO 15 
.14 IT <0ASETH < T > ,£0.0.) GO TO 39 
EMsM-1 

79 IFCNBR.EO.O) GO TO 15 

IF(THETA»LF.,2618) GO TO 60 

1FIEM.IF,{(AVEHT-UWI+ESl^B/XO)/10.)) GO TO 32 
JF((EM#10.),LT«(AVEHT-ES#HB/XO)) GO TO 33 
GO TO 15 
39 EMsM 

GO TO T<} 

32 RH0X <M) sPHCBT1<»AWl«XLP/SlN< THETA) 

TRHsRHOX(H) 

THICK sAwT<*XLP/5IN (THETA) 

kkl=kavgmt 

CALL ATTFN'MTRH f KltL* THICK* AT©* ATT) 

ATTG(M,N1sATTG(M,N)»A tG 
ATTN(M,n)=ATTN(M,N)»ATT 

33 RHOX?m! = (RHOPP/SIN(THETA))o(AWI*XLP-(1C»«EM*ES*XLP«MP/XO)) 

THICK-(AWI#XLP~ {10* «EM*’Es<>XLP u HB/XO) ) / SIN < THETA) 

KKL“K AVG m T 

CALL ATTFNI'(TRH,KKL*THICK,ATG*ATT) 

ATTGIM.N)sATTG <M»N)«ATG 
ATTN(M,N)sATTN(M,N)«*ATT 
GO TO 15 „ , c 

AO !F((EM*lO t ).GE.AVEHT) GO TO 15 
RHOX (MI sRHOBDPAWl#Xl.P 
TRHaRHOX(M) 

THICKaAwloXLP 

KKLsKAVGMT 

CALL ATTFNII(TRH,KKL«THICK*ATG« ATT) 

ATTG(M.N)sATTG fM*N)«ATG 
ATTN(M t N)=ATTN(M.N)«ATT 

15 CONTINUE 

IF(KPRINT.EQ.O) GO TO 6 
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ATTGCUnaATC. 

ATTN(1«1)sATT*ATTS 
MMa2 
GO TO 4 
9 NT*l 
GO TO 3 

2 IF(BA.SrrHm .E0.0.) GO TO 54 
NFaNFLHWl 
55 NNF*NF 

TRM0(NNF«U s4QOFTM(T >»pqOFDN(11/12, 

TRHsYRHO<NNF,ll 

TH!CKsR0OFTH»n/l2. 

KKtsKRnoFM<1> 

CALL ATTFNIMTRH.I(KL.Tm!C< , ATG,ATT) 
ATTG <NNF,11 *ATC, 

ATTN(NNF,llsAT” 

44 NNFsNNr-1 

IF«NNF.EO.O) G" ’0 4- 

TRHO<NNF«n=FLOa'^ C > »F'„ORTH<n /12. 

TRH*TRM0(NMF«1> 

TH!CK*rLORTH<I)/X 2. 

KKL*<FLnRM(!> 

CALL ATTFN"(TRW,kk l ,thick,AtG*ATT> 
ATTG(NHF»1)sATG«ATTG<NNF+1*;. 

ATTN(NNF«11sATT®ATTN (NNF + W 
GO TO 44 
4 7 NTs! 

GO TO 12 
54 NF = NFL ! 11 
GO 7 0 55 
1 NTs 1 
MH=1 

ROOFTH>*RnoFTM<n/J2. 

WALPA(n=WAL°AN(n/12. 

FL0RT(T)sF10 7 -M ! ) /12 • 
CELLA<T1=10.*W! 

4 N*1 
71 XNFsNF 
50 DO 15 ,N r 

IF(N.EQ.l) go to 13 
!F(N.Gt»T.AnO,m,Eq c nF; Go to X4 
TRHO(M,N>sFLOR 7 (IlorLORDN(1) 
TRH*TRHO<M«N) 

TH!CKsFlOrT<!> 

kkl**flormu> 

call ATTFNH<TRH,KKL,THICK,ATG,ATT1 
ATTG(M f N»*ATG*ATTG(K-H,N-l» 
ATTN<M,N!*ATTNiM*l,N-l)®A TT 

GO TO 15 

14 TRHO<M,N>*ROOFT<n*ROOPDN<!> 
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100 IF(PK0(1).FQ.O.) G" Tn 140 
!MPK0f2) . r 0.0.) GO T 0 141 
IF(THETA,LF••2A1«» 60 TO 143 
00 rn 144 

140 IF(PKO (2).FQ.O.) 60 TO 142 

PCAFOs (PK0(11*FXPARA*P<0(2>*$HARFA)/OUTA 
TI '“iQUT = T * MRO i 2 i 
60 TO 116 

141 PCAFO*(PKO(ll*FXPARA«PKO<2>*SHAREA)/OUTA 
TlM0WTeTTM»0(H 

(»0 TO 116 

142 PCAF036.0 
TIMOUTslOOOO, 

GO TO 110 

144 PCAFOs<PKO(1)«FXPARA + PKO<2)«SHAREA>/OUT A 

TIMOUTa(TlMROn >PEXPARA*T!MR0<2> »SHAPEA1/OUTA 
GO TO 110 

143 PCAF0s(PK0<1>*PK0«2))/2. 

TI MOOT*(TJMRrtH)+T!MRo(2))/2# 

GO TO lio 

86 SHARFAsO. 

FXPARAaOUTA 
KK0UNT«3 
pko( 1 > =o.o 

GO TO 46 

108 PCAFO=»KO<JJ1 
TIMOUT=TTMRO(3) 

GO TO no 

88 RSTARsAvFHTttXO/HG 

!F (RSTAR.LT.FSl GO TO 87 
RSTAPsFS/2. 

GO TO *9 

87 RSTARaRSTAP/?. 

89 THIC*=AVFHT/SIN(THETA)-RSTAR/COS(THETA) 

SHARFAaRSTARoAWI 

FXPARA=0"TA-GHAREA 

KKOIJNTs 1 
GO TO 46 
110 0010^0=0.0 
OWIO»JO*0.0 

nMIONO= 0.0 
00 124 1*1.3 
AREA*EXPArA/6UTA 
1FU.E6.2) AREAsSHARFA/OUTA 
RllN*iOO,-.PKO(T) 

IF (PK 0 (I) .LE.O.O»ANP.(.NOT. 11 • C Q • 1 .A NO, K (COUNT .EQ. 31 1 .AND. (.NOT. (1* 
1EQ.3.AND.KK0UNT,LT,3))) R11N*RAOINJ(RADNG) 

IF ( (I.F0.1.AMD.KX0UNT.FQO) .OR, < I. EQ. 3. and. KKOUNT.LT. 3) > RIIN*0.0 
RlO«Rin*Rl!N/100.«ARFA tt (l.-PERPI N ^100.) 

PK = PKO(n/l0O.«AREA*(l.-PERPlN/100.) 
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iFlTJMBOln .6E.O..AND.T!MRCtn .LC.1.0) POlONOaDPlONO+PK 
IFtTlMOQd) .l?Y.1.0.AN0.TTM»O<!) .U.T t 0) DwTOMQ#DWlONO*FK 
IF(T JHPO*!) »6T,7,0 ,ANo % TtMRO< 1 ) .lE.2ft»0) U'‘UON6soMiaNU*rit 
124 CONTINUE 
RAnssR.-, 

RADNaRH 

IF (KFRJNT.EQ.O) GO TO 22 
WRIT? <n.ifti TfMOUT « PC AFC 

IS FORMAT (2PH0TTMF OF PEATH <DAY5)s<*E15,6.21H PERCENTAGE AFFECtED*.F1 
15.ft) 





MAFTC AFFE M94.XP7 

SUBROUTINE AFFECT (RADn6«»'ERCAF,TIMDYH) 

DIMENSION TAEX<15)*PCAFF<10) 

OAUtTAFX(LL) i lL®1 i 16)/28.«25..20.5*lft,3*13.1.10.5*6.2*6.A*5.2*4.1 
15.3.25,2.5*1,75*1,1,.5,01/ 

OATAtPCAEFtLL)*LLsl*l0)/9.*19.8*27,7*36.5*49.5,61.3.T5.0,66.5,95.5 

1 * 100 ./ 

94 IF«RADMG.LT.250.) GO TO 22 
IF (RADMG.GF.70 f *,> 60 TO 23 
11*1 

ORAD*260, 

25 IFtRADMG.GE.0RAD.AMO,RADM6.LE.t0RAD*50,M GO TO 2A 
0RAD*0OAn*50, 

11 * 11 ♦ 1 
GO TO 25 

24 PC2*ALOGfPCAFFtIl*n ) 

PCl*ALOGtPCAFF(lI)) 

DIFF*tRADNG-ORAD)/50. 

XNO*PCl+niFF«(PC2-PC1) 

PERCAFeEXp(XMO' 

36 IF(RADmG.GF,9000.) GO TO 65 

IFtRADMG.Gf.25",.AMn.RAONG.LT.4C0.) 60 TO 26 
iFtRADMG.GE.400..AND.RADNG.LT,600.) GO TO 27 
IF (RADMG.GF.60^..ANn.RAONG.LT.1500.) GO TO 26 
GO TO 29 
2? PERCAFsO. 

TIMDTHslOOOO. 

GO TO 400 
23 PEPCAFrlOO. 

GO TO 3ft 
2ft YIMDTHs112. 

GO TO 400 
27 TIH0TH*56. 

GO TO 400 

26 TiMDTH*26. 

GO TO 400 

29 LL=1 

CRADS1500, 

36 IF (RADNG.GE.CRAD.AnD.RADNG.LE.<CRAD* 500.n GO TO 37 
CRAD*CPAr*500. 

LL*LL*1 
GO TO 38 

37 DIFFs(RAO nG-CRAO)/500. 

TIMDTHsTAEX (L«-)+OIPE tt tTAFXtLl*l)"TAEXtLL) ) 

RETURN 

ft5 TIMDTHsq. 

400 RETURN 
END 
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MftFTC ATTEN M*>4«XP7 

SUBROUTINE ATTrNUJTOH.KKL « t ^ICX,AT6*ATT) 
TH1CX«»HTCK«12* 

inABS(TP) ,0^30. > OP *P is 
AT6«EX»MTR> 

GO TO 401 
lft ATG*0« 

401 GO T0Uft«AT,ftft«70> .XXL 
ft6 EXaTHiriC*.0^4345 
GO TO *9 
ft7 EX»THjrK*.l 
60 TO *9 

Aft EX«THKK».OOftOT 
GO TO A9 

70 EX*THICK*0.1*T»»H/135. 

69 IF(A«5<EX>.GT.Sflt) GO TO 51 
ATm./<10.**E*> 

GO TO S6 
51 ATY*0. 

•ift RETURN 
ENP 


S1BFTC RAOU 

FUNCTION RADINJ<D0SE> 

C INJURY CURVES DUE TO IONIZING RADIATION 
RADIWJ*a.45»O0Sf-613. 

IF(RADlNJ.lE.O*0> RAD1 NJb0*0 
IFIRADTNJ.pt.100.) RADINJ'100# 

RETURN 

END 
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appendix V 

TABLES AND GRAPHS 

Tables 23 through 26 and Fig. 66 through 72 summaries 
the data employed in developing the various mass-veloclty- 
probability relationships for Table 5. Conventional statisti¬ 
cal analysis techniques mere employed In determining the values 
and models. Concussion to the head and cerebral hemorrhage 
have not been treated. 
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DATA ON PENETRATION OF THE ABDOMEN OF DOGS BY GLASS MISSILES (Ref. 8) 










EFFECTS OF MISSILES ON HUMAN CADAVERS (LIMBS) (Ref. 
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DATA ON SKULL FRACTURES (Ref. 10) 
(Effect Number 7) 












Table 25 
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Fig. 69 SKULL FRACTURE BY LARGE BLUNT' OBJECTS 
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70 EFFECTS OF BALLS IMPACTING ON THE THORAX 
(Near lethal) 
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Fig. 72 EFFECTS OF BALLS IMPACTING ON THE THORAX 
(Superficial) 
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